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'@ 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT EORPORATION, MAYHARD. MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

'e ribs SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies 
'@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* eeRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'o¢ 

: FACILITY: Network Control Program (NCP) 

5 ABSTRACT: 

7 ! This module contains routines to process and print returns from 

: 343 } show and List commands. 
40 040 ENVIRONMENT: VAX/VMS Operating System 
4@ ; AUTHOR: Darrell Duffy , CREATION DATE: 13-November-1979 
44 4 : MODIFIED BY: 
46 4 i v03-028 PRD0090 aul R. DeStefano 28-Mar-1984 
4 : Modified NCPSPARSEPARR” to format a node address with 
$8 8 : area numbers when data type = event. 
50 50 ! v03-027 PRDOO076 Paul R. DeStefano 09-Mar-1984 
51 33 Remove PRDO047. We want to see area 1 after all! 
2g 2§ ! v03-026 progne? Paul R. DeStefano 05-F eb-1984 
55 23 Don't output area number for area = 1. 

§ 3$ ‘ v03-025 RPG002S Bob Gro 08-Jun-1983 
5 5 : Correct formatting of AREA number. 
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Returns from SHOW and LIST 15-50 Sep-1 :5 AX-11 Bliss-32 V4.0-74 Pa 2 
27808-1382 93: 28; #8 ENCE SREINCPSHOLIS B32. ~ (1) 
Columnize SHOW CONFIG STATUS output. 
v03-024 RPGO024 Bob Gro 03-May-1983 
Print circuit service data base. 
v03-023 Bredoes Bob Gro 10-Mar-1983 
Format NI addresses with: the *="s between couplets. 
v03-022 pepeees Bob Grosso 09-Mar-1983 
ake more room for file” name in Object display. 
v03-021 neeopet PP. Grosso 31-Jan-1983 
ix “Loop node 4 
hdd SHOW MODULE CONFIGURATOR support. 
v03-020 RPGO020 Bob Gro 24-Nov-1982 
Add circuit to SHOW KNOWN, AREA SUMMARY column display. 
v03-019 RPGO019 Bob Gro 24-Nov-1982 
Add column for elreutt none in SHO AREA + ae pty 
v03-018 RPGO018 Bob Grosso 22-Nov-1982 
Clean up code by accessing areas with vield” definitions. 
v03-017 RPGOO17 Bob Grosso 18-Nov-1982 
Clean up displays to aceonnedote areas. 
V03-016 RPGO016 Bob Grosso 28-Sep-1982 


Format Area entity 
Widen display lor 7eHO LOG MONITOR since it truncates events. 


v03-015 RPGOO15 Bob Grosso 10-Sep-1982 
Lay groundwork to format RNGL type parameters so 
that X-P channel | Lists can be printed on a single Line. 
Restrict petive from appearing in header for SHOW 


X-P KNOWN DTES. 
v03-014 RPGO014 Bob Grosso 09-Aug-1982 
atte: Looping pree ee 
Adjust NODE STATUS table. 
v03-013 RPGOO013 B9b 6 osso 14-Jul-1982 
Support MODULE X ~trese. X29-Server 
v012 RPGO012 Bob Grosso 09-Jun-1982 
oes _oysners for show module X25-Protocol and 
Remove numerical ordering of parameters restriction. 
v011 TMHOO11 Tim Halvorsen 01-Jun-1982 


Add support for display of parameters which are entity 
specifiers or a numeric range. 


v010 TMHOO10 Tim Halvorsen 04-Mar-1982 
Fix display headers to use ‘circuit’ rather than ‘‘Line’’. 


v009 TMHOO09 Tim Halvorsen 19-Feb-1982 


14-Sep-1 NCP. SRCINCPSHOLIS.832; (1) 
Fix SHOW STATUS LINKS display to show ‘'state’’ column. 


v008 Toogs Tim Halvorsen 11-Jan-1982 
Add V2.0 NICE mapping to process SHOW returns from 
older systems. 


v007 TMHO007 Tim Halvorsen 2-Dec-1981 

Add check to wor iy that the = response to a SHOW 
request returned the parameters in eegensing order, 
as an additional level of NML validation. We will 
continue to output all the parameters, regardless of 
order, but issue a warning message about he NICE 
pretecet violation to catch problems in NML. | 
eformat LINKS display to include ‘remote ID’. 


v006 TMHOO06 Tim Halvorsen 5-Nov-1981 
Display source type (Line, Circuit, Node, etc) 
in the source column, so rf ba den distinguishes 
between source lines and circuits. Display 
(all sources)’’ for global event masks. 


v005 TMHOO0S Tim Halvorsen 11-Nov-1981 
Show circuit type in source column for show logging. 
Output ‘No information available’’ message if no parameters 
are returned in a show response message. 


TMHO004 Tim Halvorsen 28-Aug-1981 
Add compatibility for 2.0 NML show Link messages. 


v003 TMHO003 Tim Halvorsen 25-Aug-1981 
Display Links as a single line per Link 
rather than multi-column format. 


v002 TMHOO002 Tim Halvorsen 07-Jul-1981 
Complete code to display circuits 


TMHO001 Tim Halvorsen 22-Jun-1981 
Add Circuit entity. Re-do display code to detect 
system-specific entities vs. NICE entities. 
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1 ZSBTTL ‘Definitions’ 


SA 


vss 
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TABLE OF CONTENTS: 


_ 
wr 


et 

6¢ FORWARD ROUTINE 

6 NCPSSHOHEAD : NOVALUE, Print heading for show/List 
NCPSSHOCOLHEAD : NOVALUE, setup heading for column output 
NCPS$SHOLIS : NOVALUE, Print all params for a return 


NCPSSHOCOLFMT : , 
NCPSSHOENTITY : NOVALUE, 


Vé2_SHOW COMPAT, 
NCPSEORRATPARN : NOVALUE, 


Produce column output 

sergers entity in return 

V2.0 NML SHOW response compatibility 
Format a parameter or counter 


NCPSPARSEPARM _: NOVALUE Parse a parameter into text 
NCPSPARSECOUNTER : NOVALUE, Parse a counter into text 
NCPSPARSEVENTS : NOVALUE, Parse an event mask into text 
NCPSPTBSE Search a parameter table 
FAOSET NOVALUE, Setup fao pointers 
NCPSADDSTR NOVALUE, Add one —— to another 
NCPSADDF AO : NOVALUE, Add an entry to the fao List 
NCPSF AOWRITE : NOVALUE, Convert and write fao string 
NCPSFA ALUE, Convert fao parameters 


CPSFAOL : NOV 
NCPSPRIVBITS : NOVALUE 


Convert privilege mask to text 


INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY:STARLET'; 
LIBRARY ‘LIBS:NMALIBRY'; 
LIBRARY ‘LIBS$:NCPLIBRY'; 
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NCPSHOLIS Process Returns from SHOW and LIST 18-26, -1984 23:5 AX-11 Bliss-32 V4.0-74 Page 6 
¥06 2000 Detin it ions 14-Sep P1984 t $3: iB: #8 NCP.SRCIN SHOLIS ¢:83564 . (4) 
i $08 388 1 
; ¢ ; : Headers for column output 
; ee 
3 i 03 : BIND 
; 09 06 NCP$Q_COLNODSUMHDR = ! Node Summary header 
bad Ba ae 
: 21 P0210 1 
; 216 P i? s Node State Active Delay Circuit Next node’, 
: 15 ig 8 \¢ 1 Schar(13), %char(10), 
r 16 P 021 Be Links’, 
3 17 P0214 1 &char(13), %char(10), ° ' 
ee oe 
; 20 $538 1 7 
3 1 0218 1 NCP$Q_COLNODSTAHDR = ! Node Status header 
$ $6 0219 #1 
Pie tina eee 
> 225 P 0 1 
; 226 P 0 $6 = Node State Active Delay Type Cost Hops Circuit’, 
3 sf P 0224 1 &char(13), %char(10), 
3 8 P 0225 1'° Links’, 
3 $3 P 0 $$ 1 Schar(13), Xchar(10), * ° 
: $30 P 0558 | ) 
; 32 0 29 1 ‘ 
; 23 0230 1 NCP$Q_COLCIRSTAHDR = ! Circuit Status 
3; 234 ttt 1 
OB a: Bee an 
: 237 P 0234 1 
; 238 P 0235 1° Chogytt State Loopback Adjacent Block’, 
: 239 E oseo 1 Zchar(13), %char(10), 
; 240 P 0237 1° Name Node Size’, 
: 241 P oss8 1 char (13), %char(10), * ° 
: $0g P Ose | ) 
3 266 0241 1 : 
; ve 8 ri} } NCPS$Q_COLCIRSUMHDR = ! Show Circuit Summary 
fey oe 
> 249 P 0246 1 
3 50 P 43 7? Circuit State Loopback Adjacent’, 
s ol P $8 1 tchar(13), Zchar(10), 
3 6 P 0249 1'° Name Node’, 
; 2 P 0250 1 &char(13), %char(10), ° ° 
3 254 P 0251 1 
a. ye 
; 35 54 NCP$Q_COLLISCIRHDR = ! List Circuit 
3; 258 0255 1 
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wei 


Pr 
De 
: 259 p 1 ASCID 
; 260 e 1 ( 
3 ol P 1 
; °¢ fe 7° Cicgytt State’, 
; 26 P 1 Schar(13), Schar(10), ° ' 
; 264 P 1 
; 265 : vs 
3 89 1 
; 68 i NCPSQ_COLLINHDR = 
3 0 & 1 ASCID 
3; eri P 1 ( 
3 Le: P 1 
: ef P .* Ling State’, 
: 74 Pp 1 Zchar(13), &char(10), * ' 
3 ed P 0 1 
3 f 0 : ), 
; 278 1 NCP$Q_COLLNKHDR = 
; 279 0 1 
; 280 P 0 1 ASCID 
; 281 PO 1 ( 
F S P 0 1 
; 28 P 0 1° Link Node PID 
; 284 P 0 1 &char(13), Zchar(10), * ° 
; 285 P 0 1 
; 286 1 ), 
: 87 1 
: 288 1 NCPS$Q_COLLNKSTAHDR = 
3; 289 0 1 
: 290 P 0 1 ASCID 
s el P 0 1 ( 
3 4 P 0 1 
; 2 P 0 a Node PID 
3 294 P 0 1 Schar (13), &char(10), ° * 
; 295 P 03 ; 
: 39 1 
3 + 02 } NCP$Q_COLOBJHDR = 
; 300 Pr 1 ASCID 
3; 301 . : ( 
3 8 p 7 5 oes ct Number File/PID 
; P 1 Xchar¢ 3. acnar(i9), * F, 
s 305 P 1 Schar(13), Zchar(10) 
: BS P 1 
; 30 1 ” 
; 308 1 
3 43 | NCP$Q_COLLOGSUMHDR = 
3s 311 & 1 ASCID 
: \§ P 1 ( 
3 1 P 1 
: 14 P 7 * Sink Node Source 
: 15 p 1 Schar(13), Ichar(10), i 


AX-11 B 
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' Line header 


' Header for Links 


Process 


! Header for Link status 


Remote Link State’, 


Process 


! Header for Objects 


User Id 


! Header for logging summary 


Events 
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NC 


Password’, 
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Remote Link Remote user’, 
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NCPSH Process Returns from SHOW and LIST 18. S$ep-1984 75 AX-11 -74 
yO Definitions 14- =300n 138% #3: 28: #8 INCE. sno ines mate $:83084 
: 16 P 13 1 Zchar(13), %char(10) 
a (ed | Eee 
; 34 16 1 ’ 
; 1H ! NCPSQ_COLCNFSUMHDR = ! Header for Show Module Configurator Summary 
; é P i$ 1 ASCID 
‘2 bai! 
: 5 P § Cireyit Surveillance Elapsed Time’, 
5 § P 1 &Schar(13), Schar(10), ° ' 
3 P 4 1 
5 3 5 } ), 
3 , ? } NCPSQ_COLCNFSTAHDR = ! Header for Show Module Configurater Status 
; é P 5 3 ASCID 
; P 0331 1 
: 5 P 6 § 7 Cte sy t Physical address Last report Hardware address’, 
: 3 4 2 : Zchar(13), Zchar(10), * ' 
; 38 0 5 , 
: 340 0 $ 1 NCP$Q_COLMPRGRPHDR = ! Header for boggin Chacteristics 
> 341 0338 #1 ! of Module X25-Protocol Groups 
oe BR 
> 344 P0341 1 
: 5 P 8 ¢ .* Srovp DTE Number Type’, 
: $ P 0 1 Zchar( 3}. Zchar(10), ° ‘, 
3 i ; 4 : : Zchar(13), %char(10) 
: 349 0 $1 , 
; 350 0 1 
3 Jo 0348 1 NCP$Q_COLMPRDTEHDR = ' Header for logging status and summary 
3 
3 22 9 1 ' of LIST Module X25-Protocol DTE 
: 328 P 0 1 ASCID 
i 38g p Ose? | ' 
: 26 P 0 § 7 * OF State Active Channels Active Switched’, 
s 35 pe 8 4 1 Echart i 3} Zchar(1 0}. . 7. 
3 58 P 5 1 &char(13), %char(10) 
; 359 p $ ' : 
; 361 8 1 . 
3 § 9 1 NCPS$Q_COLMPRDTEPHDR = ' Header for logging status and summary 
3 1 ' of SHOW Module X25-Protocol DTE 
; p ie ASCID 
3 5 ke § 1 ( 
3 P 1 
: p 1° OTE State’, 
: P 5S f Fchar tis}. Fchar( 10}.  %. 
3 4 } Zchar(13), Ichar(10) 
: 68 , 


scam 


Defintt 


vuvvVvU 


VFA —OVOONOu 


vuvvUvUU 
oooo0ce 


SENS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
1 


Returns from SHOW and LIST 
ions 


NCP$Q_COLARESTAHDR = 
ASCID 
( 


tcharti3), acnsecioy, #8" 
9 
NCPSQ_COLARESUMHDR = 
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Zchar(13), %char(10), ° ' 
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Next node to area’, 
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Process Returns from SHOW and LIST 18-Sep-1984 $3:3 36 AX-11 Blis 


s-32 V4.0-74 
Definitions 14-Sep-1 NCP. SRC weesiou i$ 20300 
ry } ), 
i : NCPST_COLLINTBL = ! Line status 
YPLIT 
g 1 WORD (NMASC_PCLI_STA), BYTE (20, 7) 
4 1 WORD (NMASC-PCLI“SUB), BYTE (29, 155, 
5 1 WORD (NMASC"PCLI“LOO), BYTE (45, 6) 
8 1 WORD (NMASC-PCLI-ADJ), BYTE (53, 145, 
1 WORD (NMASC"PCLI“BLO), BYTE (69, 5), 
§ WORD (=1) 
60 1 ‘ 
61 NCPST_COLLNKTBL = ! Link display 
tion 
65 1 WORD (NMASC_PCLK_NID), BYTE (9 19), ! Node ID 
66 1 WORD (NMASC-PCLK-PID). BYTE (27,8) i PID of local process 
67 1 WORD (NMASC-PCLK"PRC). BYTE (37.165, | Local process name 
68 1 WORD (NMASC“PCLK"RLN), BYTE ( 3.3) i Remote Link number 
$9 1 WORD (NMASC-PCLK-RID), BYTE (62.165, i Remote ID (username or PID) 
0 1 WORD (-1) 
AY me 
7 : NCPST_COLLNKSTATBL = ! Link status display 
i3 UPLIT 
7g 1 WORD (NMASC_PCLK_NID), BYTE (9,16), ' Node ID 
78 (1 WORD (NMASC_PCLK_PID), BYTE (67.8) ! PID of local process 
0479 1 WORD (NMASC-PCLK-PRC), BYTE (37.165, i Local process name 
1 WORD (NMASC_PCLK_RLN), BYTE (55,5) ' Remote Link number 
11 WORD (NMASC-PCLK-STA), BYTE (62,105,  ! State 
: 1 WORD (1) 
pam 
5 } NCPST_COLOBJTBL = ! Object display 
4 UPLIT 
9 1 WORD (NMASC_PCOB_NUM), BYTE (13,5) ! Object number 
30 1 WORD (NMASC~PCOB-FID). BYTE (¢ 265, i File id 
91 1 WORD (NMASC"PCOB-PID). BYTE (20.16). i Process id 
92 1 WORD (NMASC"PCOB-USR), BYTE (47,16). i User id 
93 1 WORD (NMASC"PCOB-PSW), BYTE (64,16). i Password 
9% 1 WORD (1) 
95 ), 
37 : NCPS$T_COLLOGTBL = ! Logging display 
39 1 UPLIT 
ay ; 
5 § 1 WORD (NMASC_PCLO_STA), BYTE (67,4) ' Logging state 
503 1 WORD (NMASC"PCLO“LNA). BYTE (62.325, i Logging name 
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vou-000 = efintttons “vom SNOW and LIST HESeoctgGs GH:EEGE WMG EARN 40504 shin 


H 7 } 

; 1 ! OWN STORAGE: 

H > 39 

; 59 $ 1 

; 35 1 OWN 

; 59 8 1 FAOPTR, ! Pointer to fao List 

; 594 1 FAOLST : VECTOR FAO. StSigJ. ! List of args for FAO 

; 595 1 CTRBUF : VECTOR [CTRBUFSIZ, BYTEI, ! Control spring for fao 
3 39 91 +1 OUTDSC : VECTOR ! Descriptor of output buffer 
; 59 3 1 TBUF : VECTOR COUfBUFSIZ.BYTE], ! Fao output buffer 

3 4 3 1 NCPSA_COLHEAD, : Address of descriptor for header 
; 594 1 NCPSB_COLHEAD =: BYTE, ! True for head pecnted 

; 600 595 1 NCPSB_LOGTYPE =: BYTE, ! Type code for logging 

; 601 239 : NCPSA_COLTBL; ! Table for column output 

; £08 238 1 GLOBAL 

3 eRe 3232 : NCP$GQ_CTRDSC : VECTOR (3) ! Descriptor of control string 
3 ope 0601 1 

: 60 se 1 BIND 

; 608 03 1 CTRDSC = NCP$GQ_CTRDSC : VECTOR [C3] ! Local alias 

; 609 0604 1 3 

; 610 0605 1 

; 611 B08 1! 

; ol¢ 0607 1 ! EXTERNAL REFERENCES: 

; 61 0608 1! 

; 614 0609 1 

; 615 0610 1 EXTERNAL LITERAL 

; 616 0611 1 NCP$_BADMSG, ! Invalid management message 
; 617 bei§ 1 NCP$_LOGIC; ! NCP logic error 

; 618 0613 1 

; 619 0614 1 EXTERNAL 

; 620 0615 1 NCP$GA_TBL_EVESOUR, ! Event source table 

; 621 p6i6 1 NCPS$GL_OPTION : BBLOCK, ! Option byte 

3 6 ¢ 61 1 NCPSGL_ENTITY : SIGNED, ! Entity type code. If negative 
; 6 Belg 1 ! system-specific entity ( $C_SENT_) 
; 624 19 1 NCPSGL_MODTYP, ! Type of MODULE entity 

3: 625 0620 1 NCP$GW_PRMTYP, ‘ Type of parameter 

3; ¢ § 6 a: os PDB$G_VRB_ENT : BBLOCK; ' Plural entity type code 

; 6 $ 1 ! (Known, Active, etc.) 

; 628 6 1 

; 629 624 1 EXTERNAL 

; 6 625 1 NCP$GA_PRM_NOD, ! Parameter tables 

; 631 6 § 1 NCPS$GA_PRM_CIR, 

; 6 § 1 P$GA_PRM_LIN, 

; 6 6 3 1 NCPSGA_PRM_LOG 

; 6 1 NCPSGA_PRM_MODCNF , ' module Configurator 

3; 635 o Ff NCPS$GA_PRM_MODCNS, ! module Console 

; 6 a; var NCP$GA_PRM_MODLOA, ! module Loader 

: 6 § 7 33 NCP$GA_PRM_MODLOO, ! module Looper 

; O38 1 NCPSGA_PRM_MODACC, ! module X25-Access 

3; 639 1 NCP$GA_PRM_MODPRO, ! module X25-Protocol 

; 640 5 1 NCPSGA_PRM_MODSER, ! module X25-Server 

3; 641 1 NCPS$GA_PRM_MODTRC, ' module X25-Trace 

3 ong 1 NCPSGA_PRM_ARE, ! Area parameter table 

3 64 8 1 NCPS$GA_PRM~OBJ, 


Ream _‘Sepeye Serve tron ou ed ue HERSCHOES GREE MBS A BMMURHR YES 


; ; 1 NCPSGA_PRM_LNK 

; é 1 NCPSGA_PRM_CIRCNTR, ' Circuit counter table 

3 § 1 NCP$GA_PRM_LINCNTR, ' Line counter tab 

3 1 wee GA_PRM_NODCNTR, : Node counter fable 

3 8 1 NCPSGA_PRM_MPRCNTR, ! Module Xs “Protocol counter table 

: 4 te : NCPSGA_PRM_MSECNTR; ! Module Xs “Server counter table 

3 e31 oe8 1 EXTERNAL ROUTINE 

; 6 § 647 1 NCPSTABLESEARCH, ! Search for table entry 

3 $2? Rete : NCPSWRITESHO : NOVALUE ! Write a message to show/list output 
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oe Bliss-32 V4.0-74 
NCP. SRCINCPSHOLIS.832; 


ZSBTTL ‘NCPSSHOHEAD pispler Neoding for SHOW and LIST’ 
: ae .4 


GLOBAL ROUTINE NCPSSHOHEA 


VALUE 


+e 
: FUNCTIONAL DESCRIPTION: 


Create and display the standard heading for show and List data. 
The parts come from the option byte and the entity which were 
used to build the message originally. 


FORMAL PARAMETERS: 


NONE 
IMPLICIT INPUTS: 
NCPSGL_OPTION Option byte 
NCPSGL_ENTITY pnttty type code (negative if system-specific) 
PDB$G_YRB_ENT Plural entity code (known, active, etc.) 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 
NCPSFAOSET (); ' Set the fao pointers 
ADDSTR (° !/ !/"); ! Setup some formatting 


SELECTONE .(PDB$G_VRB_ENT CPDBST_DATA]) <0, 8, i> 
OF ! Plural entity formats 


ET 
mt : ADDSTR ("Active '); 


TR ( 
NMASC_ENT_LOO] : ADDSTR (‘Loop ‘) 
ENMASCIENT_KNO : ADDSTR ("Known ‘5; 


pe hec rene eNCPSGL_ENTITY ! The type of entity 


NMASC_ENT_NOD] : ADDSTR (‘Node’); 
NMASCENT“LIN] : ADDSTR ('Line'); 
NMASCENT~LOG] : ADDSTR (‘Logging’); 
NMASCENT-CIR] : ADDSTR ('Circuit’) 


<Zz 


TITLE NCHSHOL IS Process Returns from SHOW and LIST 
-IDENT \Vv04-000\ 


~PSECT SPLITS,NOWRT ,NOEXE ,2 


14 
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vous NCPSSH HOHEAD Display Heading for SHOW and LIST 12-808= 1382 93:23:48 NCP.SRCINCPSHOLIS.832; J 

. Eas 707 BEGIN ; 
> 714 7 3 ADDSTR ('M H ° 
3 o? 18 eee tan NCPSGL_MODTYP OF ° 
; aS 711 is ENT_MODCNF) : ADDSTR (' Configurator’); ; 
; rie at 4H NCPSC_ENT_MODCNS] : ADDSTR (' Console’); : 
; 719 71 ii NCPS$C-ENT-MODLOA] : ADDSTR (° Loader’); : 
: 720 714 i! NCPSC_ENT_MODLOO] : ADDSTR (' Looper'); ; 
s el 715 NCPSC_ENT_MODACCJ : ADDSTR (" X ~Access'); ; 
 F ¢ rig NCPSC_ENT_MODPRO] : ADDSTR (° X -Protocol! VF: : 
3 © 71 NCPSC_ENT_MODSER) : ADDSTR (*° X g_perver. ); : 
: 724 re Meee ENT MOD IRE : ADDSTR (' X25-Trace') ° 
> 725 71 NCPSCZENT-MOD29S) : ADDSTR (' x29-Server'S; : 
; 726 720 TES; : 
: 727 0721 : 
; 728 07 é NMASC_ENT ARE? : ADDSTR (‘Area’); : 
: 729 07 -NMAST_SERT_O OBJ) : ADDSTR ('Object’); : 
; 730 0724 “-NMASC_SENT_LNK] : ADDSTR (‘Link'); ’ 
3 ra of ? TES; > 
; Fag 0727 IF_.NCPSGL_OPTION CNMASV_OPT_INF] NEQ NMASC_OPINF_COU : 
> 734 0728 THEN : 
3 2 0729 BEGIN : 
3 oe 4 ; IF_.NCPSGL_OPTION CNMASV_OPT_PER] ! Indicate this is SHOW or LIST ; 
; 738 07 § ADDSTR (' Permanent’) ! List ° 
: 739 07 : 
; 740 0734 3 ADDSTR (" Volatile’) ! Show ; 
Rb ee Se ; 
: 74 $739 2 SELECTONE .NCPSGL_OPTION CNMASV_OPT_INFJ ! Information type : 
3: 744 0738 OF ; 
3; 745 0739 ET : 
3; 746 0740 NMASC_OPINF_SUM] : ADDSTR (' Summary'); 3 
3 747 0741 $ NMASC_OPINF_STA] : ADDSTR (' Status’); F 
; 748 O44 NMASC_OPINF_CHA] : ADDSTR (° Characteristics’ ); : 
3 749 074 NMASC_OPINF_COU) : ADDSTR (* Counters’ ds : 
s 0744 NMASC_OPINF_EVE) : ADDSTR (* Events’); F 
3 0745 TES; : 
: 3g aren 3 
; 75 074 ADDSTR (*° as of !20%D!/ '); ! And the exact date and time : 
3 67546 0748 ADDFAO (0); ! Quadword code for system datetime 3 
: 138 0749 ADDFAO (0); : 
3 739 0751 NCPSFAOWRITE (); ! Convert and write it to file ; 
; e233 0738 NCPS$SHOCCLHEAD (); ! Set up for column header output : 
3: 761 0755 RETURN 3 
3 roe 756 : 
3; 0757 1 END; ; 
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ll \ Node PIDs Pro\ 


Remote Link Remote user\<13>- 


ASCII \ VN 


" 76 
eASCII \ Link Node PID Pro\ ; 


LONG 


Remote Link State\<13><10>\ \ 


“ADDRESS P.AAP ; 
eASCII \ Object Number File/PID Oe 
ASCII \ User Id Password\<13><10>_ : 


eASCII \_\<13><10><0><0><0> 


oL 
»ADDRESS P.AAR 
eASCII \ 


Sink Node Source \ : 


State Name\<13>_ : 


eASCII <10>\ \<13><10><0><0><0> 
“ADDRESS P.AA 


AAT 3 
SCII \N\ Circuit Surveillance Ela\ ; 


ASCII ygoes Time\<13><10>\ \ 
ONG 5 


[ADDRESS P.AAV 
eASCII N Circuit 


Physical address Last repo\ : 


ASCII \rt Hardware address\<13><10>\ \<0> 
-LONG 67 

ADDRESS P.AAX 3 
eASCII \ Group DTE Numb\ : 
eASCII \er Type\<13><10>\ \<13><10><0> 

«LONG 55 


oe 1$ 


$3 80 80 
& 9 $3 


20 20 0 
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MOMMA Sy 


aie 
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P. ABA: 
P.ABD: 


P.ABC: 
P.ABF: 


P.ABE: 
P.ABH: 


P.ABG: 
P.ABI: 


P.ABJ: 


a 3:2 


»ADDRESS P.AAZ 
ASCII TE 


ASCII 
Wyo! <10>\ \<13><10> 
.ADDRESS P.ABB 
<ASCII \ DTE 
eASCII <10><0><0><0> 
.ADDRESS P.ABD 
eASCII \ Area 
cASCII \uit 
.ASCII \ \<0><0> 
-LONG 74 
.ADDRESS P.ABF 
<ASCII \ Area 
ASCII 
.LONG 63 
.ADDRESS P.ABH 
-WORD 0 
“BYTE 17, 11 
“WORD 606 
.BYTE 29, 5 
“WORD 604 
.BYTE 37, 5 
[WORD 822 
-BYTE 46, 12 
“WORD 504 
-BYTE 46, 12 
[WORD 836 
-BYTE 59, 16 
;WORD =1 
“BLKB ; 
.WORD 
“BYTE 17, 11 
WORD 606 
.BYTE 29, 5 
WORD of 
“BYTE 5 
[wORD 816 
“BYTE 44, 14 
WORD 
0 
¢ 


B:48 


\ 0 


\ Active Channels Active Switched\<13> 


\ Next node to area\<13><10>\ \<0 


AX-11 8 


=3 
NCP.SRC SHOLIS.B32; 


State 


Next node to area\<13><10> 


State 


2 V4.0-74 


State \ 


State\<13><10>\ \<13> 


Cost Hops Circ\ 


Circuit \ 
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V4.0-74 
I 


2 
OLIS.832; 


033 £4 . WORD 8 2 
10 4 EG “BYTE 16 
O1F E “WORD 5 { 
10 4 EA “BYTE , 16 
FFFF EC "WORD <1 
E “BLKB 
0000 FO P.ABK: WORD 
07 14 F ‘BYTE 20, 7 
ore ts . BvIE 9, 15 
aes rr 
0199 Sere “WORD £06 
06 SF “BYTE 45, 6 
03 6 “WORD 806 
10 602 "BYTE 16 
00 6 “WORD 126 
1 3 606 “BYTE 53, 17 
032A 0060 [WORD 816 
05 47 O060A “BYTE 71, 5 
FFFF 0060C WORD =1 
6 “BLKB : 
0000 00610 P.ABL: WORD 
07 14 0061 “BYTE 20, 7 
0001 0614 ~WORD 1 
OF 1D 00616 “BYTE 29, 15 
0190 00618 “WORD 406 
06 2D O061A “BYTE 45, 6 
03 g 906 1¢ WORD 806 
OE O61E “BYTE 14 
032A 006 “wORD 816 
05 45 00622 “BYTE 69, 5 
FFFF 00624 "WORD 1 
0626 BLKB 2 
0066 00628 “wORD 102 
10 09 0062A "BYTE 9, 16 
062C “WORD 1o1 
“BYTE 27, 8 
6 “WORD 134 
BYTE 37, 16 
“WORD 126 
“BYTE 55, 5 
[WORD 124 
“BYTE 62, 16 
‘WORD = 
“BLKB 2 
“wORD 102 
“BYTE 9, 16 
“WORD ior 
“BYTE é 6 
WOR 31 
“BYTE 37, 16 
“WORD 126 
“BYTE . 5 
“WORD 
“BYTE 2. 10 
"WORD 
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15 
NCPSHOLIS Process Returns from SHOW and LIST $82 -1984 23:53: AX-11 Bliss-32 V4.0-74 Pp 4 
042088 NCPSSHOHEAD Display Heading for SHOW and LIST 12-808=138e 93:28:98 NCP. SRCINCPSHOLIS.832; — 3 
FAOLST: .BLKB $08 
CTRBUF: .BLKB 
SuTDSe: -BLKB 


OUTBUF: -BLKB 00 
NCPSA " COLHEAD: 


-BLKB 
00588 NCPSB ACOLHEAB 
00589 NCPSB_LOGTYPE: 


= we = & 


it NCPSA_COLTBLS 
-BLKB 


»PSECT S$GLOBAL$,NOEXE,2 


00000 Wer Oee_CTne SS tt 
-BLKB 12 


NCP$Q_COLNODSUMHDR= P.AAA 


UM 
DSUMTBL= P.ABI 


r-xno 


NCP 


SEESEEEtEEEPRE 


c=-342oO VO 


o 
= -0°0'0'0'U 0°00 00000 


NCP$GQ_CTRDSC 
-EXTRN NCPS NBADASG, NCP$_LOGIC 
VESOUR 


sEXTRN NCPSGA_T 

EXTR $ ~OPTTON. NCPSGL ENTITY 
“EXTRN NCPSGL RODTYP, NCPSGW~PRMTYP 
"EXTRN PDBSG NCPSGA “PRA NOD 
-EXTRN NCPSGA_ PRA tla, NNCPSCR. PRA_LIN 


15 
NCPSHOLIS Process Returns from SHOW and LIST 18.5 -1984 23:53: AX-11 Bliss-32 V4.0-74 
042005 NCPSSHOHE AD Display Heading for SHOW and LIST 12-80 8=138e 13:28:98 ENCP.SRe NCPSHOLIS.832; 


OBJ 
P$GA_PRM_ NCP$GA_PRM_CIRCNTR 
XTRN NCP GA-PRM-LINCNTR 


gh NCP GA_PRM_ARE, NCP$GA_PRM 
cE 
“E 
“E 
*E 


sEXTRN NCPSWRITESHO 
-PSECT SCODES,NOWRT,2 


XTRN NCPS$GA_PRM_LOG, NCPSGA_PRM_MODCNF 
XTRN NCPS$GA-PRM-MODACC 
XTRN NCP$GA-PRM-MODPRO 
DTRC 
DCNT 
CH 
OOFC 00000 .ENTRY NCPSSHOHEAD, Save R2,R3,R4,R5,R6,R7 : 0651 
7 00000000v 00 9€ 9002 MOVAB NCPSADDFAO, R : 
$ 99000006 9E 0000 MOVAB NCPS$GL_OPTION, R6 ; 
000000V 9E 9010 MOVAB NCPSADBSTR, R5 : 
4 00000000' 9E 001 MOVAB =P. ABW ; 
53 00000000' 9E O18 MOVAB NCP$GO_CTRDSC, R3 : 
00000000v 00 FB 908 CALLS #0, NCPSFAOSET + 0687 
DD 900 c PUSHL R + 0689 
4 0d 000 PUSHL R4 é 
65 02 FB 900 CALLS #2, NCPSADDSTR : 
50 000000006 90 98 000 CVTBL PDB$G_VRB_ENT+1, RO > 0691 
FE BF 0 91 O003A CMPB. sO, —#=2 > 0694 
07 12 0003 eo —Sss«1$ F 
3 pd 0004 PUSHL R3 : 
07 Aa 9F 0004 PUSHAB P.ABX : 
18 11 0004 BRB 3$ ; 
FD oF 50 91 00047 1$ CMPB sO, #=3 + 0695 
07 12 0004B BNEQ 2$ ; 
3 oD 90040 PUSHL R3 : 
OF Ad OF 0004F PUSHAB P.ABY : 
Q 11 00052 BRB 3$ : 
FF OF 91 00054 2s: CMPB Ss RO, #1 > 0696 
08 12 00058 BNEQ 4$ : 
5 pp 90 A PUSHL R3 ; 
15 Aa 9F 0005C PUSHAB P.ABZ ; 
65 02 F 00 F 3$: CALLS #2, NCPSADDSTR : 
52 000000006 9 D 62 i$: VL  WNCPSGL_ENTITY, R2 : 0699 
1 NEQ 3$ : 0702 
3 pp PUSHL R : 
1¢ Ak OOF $ PUSHAB P.ACA : 
7E 11 BRB 14$ : 
01 52 D1 00072 5$: CMPL  R2, #1 : 0703 
2 12 0007 BNEG 6 F 
3 pd 7 PUSHL R : 
21 Aa «9F 00079 PUS P.ACB : 
02 Ot Bb0rE 6s ore ORS. a2 : 0704 
0 9 DOOR SNEA rs 
pp PUSHL R : 
26 Ak OOF PUSHAB P.ACC : 
73«11 BRB 16$ : 


15 
NCPSHOLIS Process Returns from SHOW and LIST ib. Sep-1984 753: Ax-11 BLi V4.0-74 p 
¥042000 NCPSSHOHEAD Display Heading for SHOW and LIST 14- 730071 38e $3:2B;%6 NCP.SRCIN MOL! 1$7832; et 3 
03 A 7S: CMPL = R2, #3 : 0705 
D BNEG = 8 : 
: F PUSHL R : 
2E «AG 1 PUSHAB P,ACD : 
04 3 01 D aS OaPL , 7 a + 0706 
; ) 38 BNEG «15 : 
3 pb PUSHL : 0708 
36 AG OOF SH : 
$ F A CALLS a3 Ce PSABESTR : 
3 000000006 D As Ov NCPSGL MODTYP, R2 : 9709 
AD NEQ 5 ; 
3 pd Oar PUSHL R : 
30 «AG «OF 00081 PUSHAB P.ACF : 
69 11 84 BRB 20$ : 
05 : D1 86 9$ CMPL = Rh, #5 + 0715 
g 2 0008 BNEQ 108 : 
3 pd 088 PUSHL R : 
48 Ad 9F 000BD PUSHAB P.ACG ; 
3 11 C BRB 20s ; 
06 D1 (2 10S: CMPL Re, #6 + 0716 
Q 12 000¢ BNEG «118 ; 
3 DD 9o¢ PUSHL R3 : 
57 Ad 9F 00069 PUSHAB P.ACH ; 
51 11 000CC BRB 20$ : 
07 32 D1 OOOCE 118: CMPL = R2, #7 : 0717 
: 12 00001 BNEG 128 : 
3 DD 000D PUSHL R : 
65 Ad 9F 0000 PUSHAB P.ACI ; 
45 11 00008 BRB 20$ ; 
08 52 D1 OOODA 12%: CMPL Re #8 : 0718 
! 12 00000 BNEG 138 : 
3 bb 900F PUSHL R3 ; 
71 Aa 99F O00E1 PUSHAB P.ACJ ; 
9 11 000E4 BRB 20$ : 
09 g D1 OOOE6 138: CMPL Re "9 : 0719 
12 OO0E BNEG 218 : 
3 DD OO0EB PUSHL 3 ; 
7¢C «AG OF O00E PUSHAB P.ACK F 
é 11 FO 14$: BRB 20$ : 
05 p| F2 15$: MPL sR, #5 : 0722 
9 2 000F BNEQ 178 : 
pb F SHL R3 : 
0088 C4 OF O00F9 PUSHAB P.ACL ; 
11 FD 168: BRB 20$ ; 
FFFFFFFC © 8F p} OFF 17$: cAPL R { n-4 > 0723 
2 bb 1 PUSHL R3 ; 
008D C& 9F OO10A PUSHAB P.ACM ; 
F 11 001 188: BRB 20$ : 
FEFFFFF9  8F p} i 19$: cAPL R { #-7 : 0724 
g pb 119 PUSHL R F 
65 as 03 4 He 0$ ears Banc NCPSAD : 
03 66 03 4 ED 00122 30g: CMPZV ae NP NCP SCL OPTION, #3 : 0727 


15 
VOs-000 —NCPESHOHEAD” Display Heading for SHOW and LIST HEReDcHORS GESEESRE YASS TDABAMepaHS, Y4-05049 ae 


24$ 

TST es a 0730 
7 

0099 PUSHAB P,ACO _— 
Bie R , 0734 
O0A4 P. ACP 
3$: CALLS 42, NCPSADDSTR 
i$: EXTZV * ‘ #3, NCPSGL_OPTION, R2 


52 66 83 


737 
740 


OOAE 


01 0741 


0087 


02 26$: cet 0742 


OOBF 


03 278: CMPL 0743 


00D0 


04 28$: CMPL 0744 


DODNSNMMO SNM 8S OLN @ NMUIMD NVI MOD O~ 
@ 
r 
m 
oO 


OODA 


ACU 
65 9$: CALLS » NCPSADDSTR 


0$: PUSHL ey 

a he NCPSADDSTR 
CALLS a" R teneatens 
CALLS #1, NCPSADDFAO 


S #0, NCPSFAOWRITE 
S #0, NCPSSHOCOLHEAD 


own 


O0E2 
65 


67 
67 
00 
00 


000000 
000000 


SOON NOM NOM NOVNDON NOV NM MNOWVMUION MOVIN NODOONVUNODNMNOG— 
OOM EWN FE WWONID FWD F WOE WO FW EN EWA FW 
RHR NS NOS "O09 9-09 9 — 09 9 - 09 9 | 09 STOO O00 > oO 
WOOD FO FOOD MON @ MON) S MON) SS MON) SH MONDO S- MO OVW 
SOOOCQoooooooooooooooooooooo 
fe lw le lo lo lololololololololololole lo lelelolo lel ololololo lo lololololololol ole lololololoilo) 
2 Sh hh 


00v 
00v 


So 

& 

Won 

DOO 

m>> 

=a-—— 
rr 


3; Routine Size: 420 bytes, Routine Base: S$CODE$ + 0000 
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CPESNOCOLREAD® Soles lentes CaF talane Output F-Se-1984 93:23:46 Ente es ene 


ZSBTTL ‘NCPSSHOCOLHEAD poiee Header for Column Output’ 
ROUTINE NCPSSHOCOLHEAD :NOVALUE = ! 


s-32 V4.0-74 P 8 
NCP.SRC WePsHoL tS :03001 — BS 


zv 


sects 


las 


£69 06 i FUNCTIONAL DESCRIPTION: 

771 764 Set the addresses of the column header text string and parameter 

a4 £02 decoding table if column output should be used for this return. 

aa rey i FORMAL PARAMETERS: 

77 NON 

oS . 

gre ! IMPLICIT INPUTS: 

7 NCPSGL_OPTION Option byte 

f NCPSGL_ENTITY Entity type code (negative if system-specific) 
f ! IMPLICIT OUTPUTS: 


NCPS$A_COLHEAD 
NCPSA~COLTBL 


MEWN $9 OONOUS WN 


Co CDC9 C909 C8 NINN NN 


NCP$A-COLTBL = 0;— 
INFO = .NCPSGL_OPTION CNMASV_OPT_INF); 
SELECTONE .NCPSGL_ENTITY 


Get type of information 


Se 


s3 
CPE DIE. ANILAO POPU AYP PIP PU RPIDIPOIBYIPORO POPPA 9 PP PP SS Ss S SS Ss SY SS SS BHO OD 


7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
07 * 
787 of NCP$B_COLHEAD 
789 7 ROUTINE VALUE: 
7 7 COMPLETION CODES: 
791 7 
79 7 NONE 
79 3786 
794 4 SIDE EFFECTS: 
795 788 
796 0789 NONE 
797 790 
798 791 oe 
799 135 
00 079 BEGIN 
1 ta 
4 795 LOCAL 
b2 ta INFO; ! Type of info requested 
Sos 0799 NCPSA_COLHEAD = 0; ! Assume not a column display 


Dispatch on entity type 


— 
=28338s 


ET 
ENMASC_ENT_NOD): 
IF NOT .NCPSGL_OPTION CNMASV_OPT_PER) 


IF _ .INFO EQL NMASC_OPINF _SUM 
THEN 


VEBRE 


Volatile only: 


Node summary 


BEGIN 
NEPSA.COLHEAD = NCP$Q_COLNODSUMHDR; 
prpeA FOL Tet = NCPS$T_COLNODSUMTBL; 


Be Se Be Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Be Se Ge Sse Ge Ge Se Ge Ge Se Ge Ge Ge Se Se Se Ge Se Ge Se Se Se Se Se Sse SeSse Se Sees Ge Se Se Se Ssesseese 


—OOOOulury 
© 02 Ge Gd Ge Ge Ge 2 G2 Oo Go OO 


NN a ot oo 
ot ot ot BOO 


fw -0 0 


EN 
ELSE IF .INFO EQL NMASC_OPINF _STA 
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NCPSHOLIS Process Returns from SHOW and LIST 1$-5e -1984 253: AX-11 Bliss-32 V4.0-74 P 9 N 
042000 NCPSSHOCOL HEAD Setup Header for Column Output 12-80 8=188e $3:23:96 NCP.SRC see saoL tS o5ec% sin B Vv 
; § 15 ELSE IF .INFO EQL NMASC_OPINF_STA ! Node status : 
; 1 THEN ; 
3 B24 1 BEGIN ; 
: 825 1 NCPSA_COLHEAD = NCP$Q_COLNODSTAHDR; : 
; g 1 NCPSA_COLTBL = NCP$T_COLNODSTATBL; ; 
: 828 1 : : 
: B29 é CNMASC_ENT 1k}; : 
; 9 ? ff MP GL_OPTION CNMASV_OPT_PER) ! Permanent : 
; : 5 (. INFO EQL NMASC_OPINF_STA OR ' Circuit status : 
: $ weer’ EQL NMASC_OPINF_SUM) ! Circuit summary : 
: 835 é ; BEGIN : 
; 0 NCPSA_COLHEAD = NCP$Q_COLLISCIRHDR; : 
: 8 08 0 NCPSA-COLTBL = NCP$T_COLCIRTBL; : 
3 tes 8 1 END : 
; Bd O838 ELSE ! Volatile : 
: 84 0835 IF .INFO EQL NMASC_OPINF_STA ! Circuit status ; 
> B4 0836 THEN : 
: B44 0837 4 BEGIN ; 
: B45 0838 4 NCPSA_COLHEAD = NCP$Q_COLCIRSTAHDR; ; 
; 846 0839 4 NCPSA_COLTBL = NCP$T_COLCIRTBL; ; 
: Bee 0841 3 ELSE IF .INFO EQL NMASC_OPINF_SUM ! Circuit summary : 
; 849 Sk THEN 3 
; 850 0843 4 BEGIN ; 
: 851 0844 4 NCPSA_COLHEAD = NCP$Q_COLCIRSUMHDR; : 
; Be 0845 4 NCPSA-COLTBL = NCPST_COLCIRTBL; F 
: 85 0846 3 : : 
: 854 0847 2 END: 
: 856 tk 3 CNMASC_ENT_LINI: ' for Show and List : 
> 857 0850 IF~.INFO EQL NMASC_OPINF_STA OR i Line status : 
3 328 fh - INFO EQL NMASC_OPINF_SUM ! Line summary : 
: 860 oBes BEGIN : 
: 861 0854 NCPSA_COLHEAD = NCP$Q_COLLINHDR; : 
: 86¢ 0855 NCPSA-COLTBL = NCP$T_COLLINTBL; : 
; Ogee END; ; 
; 865 0858 C-NMASC_SENT_LNK): : 
: 866 0 59 IF ROT .RCPSGL_OPTION CNMASV_OPT_PER] ! Volatile only: : 
: 568 Oe) IF .INFO EQL NMASC_OPINF_SUM ! Link summary : 
> 869 é THEN ; 
: 870 BEGIN : 
: 871 64 NCPSA_COLHEAD = NCP$Q_COLLNKHDR; : 
; ze dese NCPSA~COLTBL = NCP$T_COLLNKTBL; ; 
: 74 ! Link status : 
> 875 : THEN ; 
: 876 BEGIN : 
: 877 0 NCP$A_COLHEAD = NCP$Q_COLLNKSTAHDR; F 
: 878 71 NCP$A"COLTBL = NCPST_COLLNKSTATBL; : 


i pCO, OST YP EQL NCPSC_ENT_MODCNF ! Module Configurator 
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Vv 5000 NCPSSHOCOLHEAD Setup Header for Column Output 127808= 1982 93:23:98 NCP.SRC weesHoL ts 65007 ” (BS V 
; 64 it; END; : 
> 881 7% C=NMASC_SENT 083: : 
; 3 13 If Rot -ACPSGL_OPTION CNMASV_OPT_PERJ ! Volatile only: ; 
: i] IF INFO EQL NMASC_OPINF_STA ! Object status : 
; 5 8 8 4 ~ INFO EQL NAASC_OPINF_SUM ! Object summary : 
: 887 BEGIN : 
; 888 o8 ? NCPS$A_COLHEAD = NCP$Q_COLOBJHDR; ; 
: 889 é NCPSA-COLTBL = NCP$T_COLOBJTBL : 
> 891 BB te: ; 
: 89¢ 0885 CNMASC_ENT LOG): : 
; 89 pase IF~. INFO EQL NMASC_OPINF_SUM ! Logging summary : 
Be lan : 
> 896 0889 NCPSA_COLHEAD = NCP$Q_COLLOGSUMHDR; ; 
> 897 0890 NCPSA-COLTBL = NCP$T_COLLOGTBL ; 
; 898 0891 2 END; ; 
: 900 4 CNMASC_ENT_MOD]: : 
: 901 0894 IF~.NCPSGL_MODTYP EQL NCPS$C_ENT_MODPRO ! Module X25-Protocol ; 
: 36 te THEN GIN 
: 904 0897 SELECTONE .NCPSGW_PRMTYP OF : 
; 0899 3 NMASC_PCXP_DTE] : ' OTE : 
: 907 0900 3 IF”. INFO EQL NMASC_OPINF_STA ! status or summary ; 
; 908 9901 ; meee INFO EQL NMASC_OPINF_SUM ; 
: 910 0903 4 BEGIN : 
> 911 0904 4 NCPS$A_COLTBL = NCP$T_COLMPRDTETBL; : 
i gle 0903 4 IF NOT .NCPSGL_OPTION CNMASV_OPT_PER] ! Volatile only: ; 
: 914 0907 4 ‘ NCPSA_COLHEAD = NCP$Q_COLMPRDTEHDR : 
: 916 0909 4 NCPSA_COLHEAD = NCP$Q_COLMPRDTEPHDR; : 
et $91) 3 os : 
: 919 O32 CNMASC_PCXP_GRP) : ' Group : 
> 920 091 IF”. INFO EQL NMASC_OPINF_STA | status F 
> 921 0914 OR .INFO EQL NMASC_OPINF_SUM | summary ; 
3; » § O31? OR .INFO EQL NMASC_OPINF_CHA ! or characteristics : 
; 9 16 HEN 3 
: 924 091 4 BEGIN : 
: 925 918 4 NCPSA_COLHEAD = NCP$Q_COLMPRGRPHDR; : 
: 926 0919 4 NCPSA_COLTBL = NCP$T_COLMPRGRPTBL ; 
: 928 0 1 TES; . : 
: 929 § END $ 
: 930 ELSE ; 
: 931 4 BEGIN : 
: 93¢ 5 F 
; 93 $ 3 
; 934 4 3 
; 935 8 4 3 
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THEN 


END; 
IF INFO EQ NMASC_OPINF_STA 


END; 
END; 


CNMASC_ENT_AREJ: 
ul or” .NCPSGL OPTION CNMASV_OPT_PERJ 


IF_.INFO EQL NMASC_OPINF_SUM 

THEN 
BEGIN 
NCPSA_COLHEAD = NCP$Q_COLARESUMHDR; 
NCPSA_COLTBL = NCP$T_COLARESUMTBL; 


EN 
EL Fuse IF .INFO EQL NMASC_OPINF_STA 


BEGIN 

NCPSA_COLHEAD = NCP$Q_COLARESTAHDR; 

agi COLTBL = NCP$T_COLARESTATBL; 
TES; 


NCP$B_COLHEAD 
NCP$B_LOGTYPE 


FALSE; 
=] 


003C 00000 iin 


0 
55 000000006 6° 3E $008 MOVAB 
54 A E 0000 MOVAB 
53 00000000" 0 43 BRt9 MOVAB 
63 D 4d CLRL 
08 AS D4 00019 CLRL 
65 9 4 EF QO0IC EXTZV 
1 000000006 Dd 88 1 MOVL 
1 8 BNEQ 
§ 95 QO02A TSTB 
Db 19 0002C BLSS 
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ten -NCPSGL_OPTION CNMASV_OPT_PER] ! Volatile only: 


BEGIN 
NCP$A_COLTBL = NCP$T_COLCNFSUMTBL; 
NCPSAS COLHEAD = NCPS$Q_COLCNFSUMHDR; 


status 


en” eNCPSGL_OPTION CNMASV_OPT_PER] ! Volatile only: 


BEGIN 
NCPSA_COLTBL = NCPST_COLCNFSTATBL; 
NCP SAL COLHEAD = NCP$O_COLCNFSTAHDR; 


Volatile only: 
Area summary 


Area status 


Head not printed yet 
Invalid logging type 


Save R2,R3,R4,R 


Ast OE SGL _OPTION, INFO 
AcbseL’ “ENTITY, RI 


NCPS$GL_OPTION 
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~Sep-1 
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be $2:08:4%6 


TSTL 
BN 


ast Oh e838 V4.0-74 
NCP. SRCINCPSHOLIS.832; 
NFO 


C COLNODSUMHDR, NCPS$A_COLHEAD 


“COLNODSUMTBL, NCP$A~COLTBL 
0, #1 


$Q_COLNODSTAHDR, NCPSA_COLHEAD 
$T_COLNODSTATBL, NCPSA_COLTBL 


RPA 
=o 


mens ttre fp 


MRFOOWZ HO 
> wm UUM "we UU 


ve 
Ww 


7$ 
NCPSGL_OPTION 


NCP$Q_COLLISCIRHDR, NCPSA_COLHEAD 
NFO, # 

WEPSO_COLCIRSTAHOR. NCP$A_COLHEAD 
INFO 

17$ 

NCP$Q_COLCIRSUMHDR, NCPSA_COLHEAD 
NCPST_COLCIRTBL, NCPSA_COCTBL 

R1, #1 

INFO, #1 

8$ 

INFO 


19$ 
NCP$Q_COLLINHDR, NCPSA_COLHEAD 
OEeet COLL INTEL. NCPS$A_COLTBL 


ag 
NCPSGL_OPTION 
19$ 

info 


ra} 
NCP$Q_COLLNKHDR, NCPSA_COLHEAD 
NCPS$T~COLLNKTBL, NCPSA~COLTBL 


info. #1 


NCP$Q_COLLNKSTAHDR, NCPSA_COLHEAD 
NCPST_COLLNKSTATBL, NCPSA~COLTBL 


Ri, #6 

18$ 

NCPSGL_OPTION 
§ 


INFO, #1 


Las) 
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AX-11 Bliss-32 V4.0-74 
NCP. SRCINCPSHOLIS.B32; 


16$ 
"S” 

NCPSQ_COLOBJHDR, NCPSA_COLHEAD 
| al armen ce NCPS$A_COLTBL 
Ri, #2 

20$ 

NFO 


1$ 
NCP$Q_COLLOGSUMHDR, NCPSA_COLHEAD 
ucp$t_COLLOGTBL, NCPS$A_COCTBL 


Ri, #6 
1$ 


3$ 
NCPSGL_MODTYP, R2 
#6 
NCP$GW_PRMTYP, R1 
R1, #1T00 

INFO, #1 

3$ 


NFO 


4$ 
NCP$T_COLMPRDTETBL, NCPSA_COLTBL 
NCPSGL_OPTION 


2 
NCPS$Q_COLMPRDTEHDR, NCPSA_COLHEAD 
NCP$Q_COLMPRDTEPHDR, NCPSA_COLHEAD 
RI #1101 

NFO, #1 

8$ 

NFO 

8$ 

ape 
NCP$Q_COLMPRGRPHDR, NCPSA_COLHEAD 
NCPSTCOLMPRGRPTBL . NCPS$A_COLTBL 
R #1 
RS 

NFO 

2$ 
NCPSGL_OPTION 
NCPST_COLCNFSUMTBL, NCPSA_COLTBL 
NCPSQ~COLCNFSUMHDR, NCPSA~COLHEAD 
NFO, #1 

NCPSGL_OPTION 

NCPST_COLCNFSTATBL, NCPSA_COLTBL 
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63 O3E0 C4 H 1 MOVAB WCB SO_COLCNFSTAHOR, NCPSA_COLHEAD 
A 11 001 BRB 
05 1 p| 1A 338: CMPL as 
° 1A3 34$:  BNEG 
95 OO1A TSTB NCPSGL_OPTION 
1 19 OO1A BLSS 378 
0 05 001A9 TSTL NFO 
D 12 OO1AB BNE 6$ 
6 O73e C4 «OE 1 MOVAB NCP$Q_COLARESUMHDR, NCPSA_COLHEAD 
08 A 680 C4 5 18 = MOVAB NCPST-COLARESUMTBL. NCPSA~COLTBL 
01 20 p} 1BA 323: CMPL NFO, #1 
B 12 00180 BNE 7$ 
ure C4 9E 001BF MOVAB WNCP$Q_COLARESTAHDR, NCPSA_COLHEAD 
68 A 668 4 01C4 MOVAB NCPS$T~ COLARESTATBL NCPSA_ COL TBL 
. FFOO 3 BF 80 QiCA 37$ OVW 965280. NCP$B_COLHEAD 


; Routine Size: 465 bytes, Routine Base: SCODES + O1A4 
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; 977 38 1 SSBTTL hy itd aD SY Format a Single Return Message’ 

; 97 1 GLOBAL ROUTINE NCPSSHOLIS (LEN, BFR) :NOVALUE = ! 

4 348 3 i lee 

: 2 1 318 | FUNCTIONAL DESCRIPTION: 

: 9 975 1 This routine formats a single return message and produces 
3 B76 : } the title and the List of parameters or counters. 

; 986 0978 i FORMAL PARAMETERS: 

: +4 980 1: LEN Value of the Length of the data 

: 24 . 1 : BFR Address of the data 

; 991 3 : i IMPLICIT INPUTS: 

; 998 385 NCPSGL_ENTITY Entity code 

: 995 0367 1 | IMPLICIT OUTPUTS: 

; 996 988 1! 

aoe mi 

: 999 0991 1 | ROUTINE VALUE: 

; 1000 99 1 ! COMPLETION CODES: 

: 1001 0993 1! 

1008 $998 1 i se 

> 1004 0996 1! SIDE EFFECTS: 

3; 1005 yaad 1! 

3 1006 998 1! NONE 

: 100 0999 1! 

3; 1008 1000 1 !-- 

3; 1009 1001 1 

3; 1010 ISne BEGIN 

HB 1BE Soca 

: 1918 1005 STATUS, ' Return of shocolfmt 

3 1014 108 PTR REF BBLOCK, ' General pointer 

3; 1015 100 PEND, ! Pointer to end of message 
3 Ht 1008 C !' General counter 

: 1018 1910 : 

: 1019 1011 PTR = .BFR; ! Pointer to buffer 

> 1020 1018 PEND = .BFR + .LEN; i End of data pointer 

: 1053 11a 5 | 

: 1098 1015 i If this is a Link response message from a 2.0 NML, 

: 1024 19i¢ ! then re-format it into 2.2 Link response messages 

3 1025 101 ‘ recursively call ourself to format each of the Links. 

: 1096 1918 ! A 2.0 message consists of a node name followed by a 

3; 10 101 ! series of Link/pid coded multiples. A 2.2 message 

: 1028 1020 : describes only a single Link and its attr bytss,, oo 
3 1080 + ; we must reformat the 2.0 message into many 2.2 ‘messages’. 
: 1031 1 j 

: 1082 i 4 IF .ncp$gl_entity EQL -nma$c_sent_ink ! If its a Link message 
; 103 1025 AND PHSRCHAR -ptr) NEQ ! If not a format byte of zero 


smi 


vo 
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r 
C 
3 1 1 $ THEN 
; 1 5 ! aay ! then assume its a node name 
: 19 ! : new buffer: BBLOCKVECTOR [32,1]; ! Allocate space for new message 
5 10 § 1031 CHSFILL(G, 32, new byt fer: ! Preset entire buffer to zero 
; 1040 1 § ! new_buffer (0,0,0,8,0) =0; | Format byte of zero 
3; 1041 1 ! Leave space for word Link address 
: ; ¢ : : ~otog oe FS nmagvpty wengescapctk pid: ° Paraneter code for PID 
: 10c4 19 § new_buffer mas voor ated = 4 i Longwor 
: 1Re2 13 ! Leave space for longword PID 
109 1039 ible Lilndcin mister Than 
3 1048 1946 new_buffer (1 “nmasy pty mul = true; / Multiple 
; 1049 1041 new_buffer Lig,nma$v_pty_cle] = H ! of 2 fields 
; 1050 1006 new_buffer (13,nma$v pryante = 2; ! Field 1 is a decimal word 
> 1051 104 new_buffer [14,0,0,16,0) = .(.ptr) <0,16>; ! Copy node address 
3 1926 1044 new_buffer (1 srmaby pty asc = true; ! Field 2 is an ASCIC string 
; 105 1045 new buffer (17,0,0,8, 3 = CHSRCHAR(.ptr+2); ! copy node name 
: See re CHSMOVE (CHSRCHAR(.ptr+2), .ptr+3, new_buf fer+18); 
: 1086 He ptr = .ptr + 3 + CHSRCHAR(.ptr+2); ! Point to first 2.0 parameter 
: 1058 1050 WHILE .ptr LEQA .pend ' For each 2.0 LAD parameter 
: 1020 1982 4 se BEGIN 
: 190) 1988 ? ian OOF? <0,16> NEQ nma$c_pclk_lad ! If not an LAD parameter, 
: 1963 1055 4 EXITLOOP; ' then get out of Loop 
We poy bulfer EL8B-18-6) ¢ <Catray} Abe SS Line aces 
3 new_buffer (6,0, 0) = .(.ptr+7); ! Co ongwor 
; 1066 1058 4 ncpSshol 1s (18sCHSACHAR (new butferti7), new.buffers; | Bisplay it 
: H's 4 Ht 4 a = .ptr + 11; ! Skip to next LAD parameter 
: 1069 1061 RETURN; ' Return = all done 
S107 1068 — 
: 107 1064 IF NOT 
3 1978 H+ — = NCPSSHOCOLFMT (.LEN, .BFR, PTR) )! Try for column output 
: 1075 1067 
3; 1076 1068 NCPS$FAOSET (); ' Set fao pointers 
3 rr 1963 NCPSSHOENTITY (PTR); ' Convert entity 
; 1078 1070 ADDSTR ('!/ °); ' Blank Line 
: 1079 1071 NCPSFAOWRITE (5; i Write that much of it 
; : : 1976 i ae EQL .PEND if nosh ton o}ge returned except 
3 ' then en 
: | ‘ 1044 NCPSWRITESHO(ASCID('No information available"); 
ey 1075 ND; 
: 10Bs 1o7e 3 
31 1 28 i If we produced colunn output, we may have quit early if 
3 1 107 : there was a parameter we did not Like to see. We will print the 
3: 1 1 ! remainder of the parameters here in standard form. 
: 1083 19 1 ! 
3 1 1082 


Process Returns from SHOW and LIST YAXeT1 Bi iss-32 V 2 ve 4.05742 


NCPSSHOLIS Format a Single Return Message 


18-26 -Sep-1984 t $3 2: #6 


Page 7 
12-808-1 382 oe 3 


seca 


3 } 1 } ; ae -PTR LSSA .PEND ' Scan til the end 
3 1 g 1 ! Setup the output buffer descriptor 
3 1 1 § hatte £93 = OUTBUFSIZ; 
3; 1095 1 OUTDSC = OUTBUF; 
: 109 1989 
; 1998 } st ut V2_SHOW_COMPAT(.PTR) ! Map V2 to V3 parameters; if ignored, 
; i : ! i OUTDSC [0] = 0; ! Do not pass any result buffer 
311 § 1094 NCPSF ORMATPARM( ! Format one parameter 
3 11 1095 -NCPSGL_ENTITY, ! Entity code 
: 118e 10 . ° ' Point to start 
3; 1105 1 TRUE, ' We want a — 
3 1198 1098 TRUE ' We want dat 
3 110 1099 ouTDdsc, ' Output butfer descriptor 
: 1108 1100 OuTDSC (OJ, ! Return Length here 
: 119% 1193 PTR); ! Return pointer here 
3 11911 1108 IF .OUTDSC CO) GTRU 0 ! If non-null Line, 
3 1336 1104 THEN 
3 111 1105 NCPSWRITESHO (OUTDSC); ! Write the Line out 
df - 
: 1118 1108 IF NOT .STATUS ! If we did not use column output 
3111 1109 THEN 
3 1118 1110 BEGIN 
3 1119 1111 ot he 0); !' Some blank Lines at the end 
; 1120 Wg ADDSTR ('!/ !/*); 
: 1121 111 NCPSFAOWRITE () 
3 11 ¢ 1114 END 
3 11 1115 3 
3 1126 1118 
3 1125 111 RETURN 
311 $ 1118 
s 44 1119 «1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
20 2F 21 03 pores P.ACW: .ASCII <3>\!/ \ ; ' 3 
20 6E 6F 69 74 61 6D 72 6F 66 6E 69 20 gf a pOrE P.ACY: .ASCII \No information available\ r 
65 6C 62 61 6C 69 61 76 6 7FF 3 
00 tah 0808 P.ACX: ONG oe : 
00 0009" Oats KODRESS P ; 
2F 21 20 2F 21 0 0810 P.ACZ: .ASCII <SSAty '/\ 3 
-PSECT S$CODE$,NOWRT,2 


OFFC 00000 


Sa 00000000v 00 9¢ 0000 


-ENTRY 


MOVAB 
MOVAB 


NCRSSHOLIS. Save R2,R3,R4,R5,R6,R7,R8,R9,- 


apse CTRDSC, R11 
NCPSFAOSET, R10 


0970 


Cur Wr -O@ 
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¥O42000 NCPSSHOLIS Format a Single Return Message 12-8081 382 $3:23:98 ENC? SREINGPSHOL IS. B3ee4 - as 
9 0000' 1 MOVAB P.ACW, RY ; 
33 Mianttdite 6 19 MOV ourost RB : 
E ¢ IF SUBL2 #32, SP : 
7 08 ac Os Ni a 4 ADDL CEN BFR, PEND : 1913 
FFFFFFES 8F 000000006 ‘ A cHPL NCPSGL_ENTITY, #-7 : 1024 
0086 ; 1$: BRW $ : 
00 8 3 A 2$: TSTB = @PTR + 1025 
Fa D BEQL ‘'1$ : | 
20 00 6E i 00 2c i MOVCS #0, (SP), #0, #32, NEW BUFFER + 1031 
07 AE 65 F 9 8 46 MOVZBW #101, NEW_BUFFER+3 : 1034 
09 AE 02 4 2 FO 00048 INSV #2, 4, 42, NEW_BUFFER+5 + 1035 
09 «AE 04 0 4 0 00051 4. #0, NE FER+5 + 1036 
oF AE 66 «BF 9 00097 MOV ZB #02, NEW_BUFFER+1 + 103 
10 AE CO «BF OB 005¢ BISB2 #192. NEW BUFFER+1 + 104 
10 AE 06 00 ; FO 00061 INSV a3. #0, #8, NEW_BUFFER+1 > 106 
11. AE 04 00 02 FO 00067 INSV #2. #0. #4, NEW-BUFFER+1 > 104 
56 6E 00 9060 MOVL PTR, R6 + 104 
12 AE 66 80 00070 MOVW (R65, NEW_BUFFER+14 ; 
14 AE 40 8F ; 00074 BISB2 #64, NEW BUFFER+16 + 104 
15 A 0¢ A6 90 00079 MOVB (Rb), NEW_BUFFER+17 > 104 
5 0 As 9A 0007 MOVZBL 2(R6). RO > 106 
16 AE 03 A6 5 g8 008 MOVC3 RO, 3(R6), NEW_BUFFER+18 ; 
50 02 As A 000 MOVZBL g(R6) R + 1048 
6 03 A64 3 008¢ MOVAB 3(R6)CROJ, PTR : 
5 ge DO 00091 3$ MOVL PTR, RO : 1050 
01 1B 00097 BLEQU 4$ ; | 
04 00099 RET : 
0069 8F 60 B1 O009A 4$ CMPW 3s (RO), #105 + 1053. 
01 13 0009F BEQL =sSS$ F | 
04 O00A1 RET : | 
0S AE 04 Ad 80 O0Ag 5$: MOVW 4(RO), NEW_BUFFER+1 > 1056 
OA AE 07 AO DO OOOA MOVL  $7(RO), NEW-BUFFER+6 > 1057 
04 AE 9F OOOAC PUSHAB NEW_BUFFER : 1058 
7E 19 AE 9A OOOAF MOVZBL NEWTBUFFER+17, -(SP) : | 
6E 12 CO 00083 ADDL2 #187 (SP) ; 
FF4S CF 2 FB 0086 CALL We NCPSSHOLIS ; 
6E B cO 00088 ADDL {, PTR : 1059. 
1 11 0008 BRB 3$ > 1050 | 
E pp CO 6$: PUSHL  5P > 1065 
re 04 AC 7D 000C mova. LEN, = (sp) : 
00000000v 0 F ¢ CALLS #3, NCPSSHOCOLFMT : 
2 D CD MOVL RO, STATUS : 
2D E D BLBS STATUS, 8$ : | 
6A FB 000D CALLS #0, NCPSFAOSET > 1068 | 
: DD 06 PUSHL SP > 1069 
00000000v 00 FB 000D: CALLS #1, NCPSSHOENTITY ; 
0A0O0 )«=—oBF_é&BB oF PUSHR #*M<R9,R11> : 1070 
9000000 v 00 2 FB OOOE CALLS #2, NCPSADDSTR ; 
00000000v 90 FB EA CALLS #0. NCPSFAOWRITE > 1071 
£ p Fl CMPL PTR, PEND : 1072 
A 12 000F4 NEG F 
1¢ «(Ad sOOF rg PUSHAB P.ACX > 1074. 
000000006 00 01 FB 000F9 78: CALLS #1, NCPSWRITESHO : 
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NCPSSHOLIS Format a Single Return Message 14-Sep-1 CP.SRC HOLIS.B32; 
57 E 01 00100 8$: CMPL PTR, PEND 
A : 1 BGEQU 
68 O1F4 ~=soBF 1 MOVZWL #500, OUTDSC 
06 =A 08 AB 9E OO10A MOVAB OUTBUF, OUTDSC+4 
; DD 0010F PUSHL P 
00000000v 99 F 1 } CALLS #1, ¥2_SHOW_COMPAT 
0 : 11 BLBS =_-RO 
04 00118 CLRL oyfos¢ 
4100 8F 8B 0011D 9$: PUSHR #*M<R8,SP> 
8 DD 00121 PUSHL R8 
1 DD 001 PUSHL #1 
1 DD 91 PUSHL #1 
14 AE Odd 001 PUSHL PTR 
000000006 9 DD O0120A PUSHL NCPSGL_ENTITY 
00000000v 00 F 1 9 CALLS #7, NCPSFORMATPARM 
68 D5 001 STL oufps¢ 
g 13 00139 BEQL $ 
8 oD 00138 PUSHL R8 
BA 11 00130 BRB 
16 32 E8 0013F 10$: BLBS STATUS, 11$ 
6A 00 FB 00142 CALLS #0, NCPSFAOSET 
38 DD 0014 PUSHL R11 
24 AD OF 00147 PUSHAB P.ACZ 
00000000v 00 02 FB OO14A CALLS #2, NCPSADDSTR 
00000000v 00 00 FB 00151 CALLS #0, NCPSFAOWRITE 
04 00158 11$: RET 


; Routine Size: 345 bytes, Routine Base: SCODE$ + 0375 
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NCPSHOLIS Process Returns from SHOW and LIST 14-se =1984 253: AX-11 Bliss-32 V4.0-74 P 40. 
062000 NCPSSHOCOLFMT Produce Column Output 12-98-18 8e 93:28:40 ENCP. SRE NePsHOL YS. 03504 29° 10) 


ZSBTTL ‘NCPSSHOCOLFMT Produce Column Output’ 
ROUTINE NCPSSHOCOLFMT (LEN, BFR, RTNPTR) = ! 


— 
— 


VO PARADA DRA Se BS BBE EWN nnonnononononen) 


wr 


+e 
FUNCTIONAL DESCRIPTION: 


Format a message for column output. We are given the buffer and 
a table to use to format the parameters. Write the header if 

not written yt oy and change the parameter list into a Line 

of output for the table. 

Parameters may appear in any order in the table and they may appear 


uw 


ROUTINE VALUE: 
COMPLETION CODES: 


Success if written as column output 
Failure otherwise 


SIDE EFFECTS: 


0 more than once in the mensege and the table. Any multiple entries 

1 are used in order and additional Lines are produced if no table entry 

¢ remains for the ager tiene} parameters. These features are especially | 
i useful for producing the Link display. 
5 FORMAL PARAMETERS: | 
¢ LEN Value of the Length of the buffer in bytes | 
8 BFR Address of the buffer 
, RTNPTR Return pointer here 

1 IMPLICIT INPUTS: 

5 NCPSGL_ENTITY 

4 NCPS$A_COLHEAD 

5 NCPS$A_COLTBL 

§ NCPS$B_COLHEAD 

: IMPLICIT OUTPUTS: 

? NONE 


ee me ee ee ed et ot = = cc cc ee ee ce ce ee ce ee ee ce we ec ce ee ee ee ee ee ed ee ed 
SN NOAA AAAOAAOAOUUIVIVUIUIUIVIVIUE BEERS RL LE 
SINS 9 SSS. 


ee ae ee ee ee ee a a ee ee a ee ee ae ae ee ee a a a a ld a a 
ee a a ee ee ae ae ee a a a a ee ae a ee ee ee ee dd 
ee ae ee a ee ee ee ee ee ee a a ae a a ce el ll ad 
PROMIMOMONONPONOPONONNODD 0 a a a a at a a a tt SS Ss 


0 NONE 
¢ BEGIN 
§ LITERAL 
3 LINSIZ = 128 ! Length of a Line can be over 80 
LOCAL 
1 D ! Parameter id temp 
é IDEND, i Bool for id found 
CTR, ! Byte counter : 
PAD, ' Ammount of padding to place before lines in 
5 ! column display 
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gene. Returns from SHOW and LIST 15-Sep-1984 28:55:26 yaytt 


PIR: REF BBLOCK, 
LINDSC : VECTOR (23, 


LINBUF : VECTOR CLINSIZ 
TBL : REF BBLOCKVECTOR fi, 


wepsnok Ts P 
VO04-' N 
ointer into the buffer 
nd of tex 

ing descriptor 

if » | Line buffer 

4 ! Table pointer 


~~~ UO 
—~ 


L 
BLOLINE ! Block to escape from 


! Table entry fields 


! Parameter id 
' Field offset in line 
0% ‘! Field size in Line 


WN OO OONAOUN EWP OCONOU ES wr 
=z 
> 
o 
» 

: a 
@D 
x 4 
aed 
o 
u 
WMO 
a ee * 
s 
o 
- 
. 


: Should we be here? 
IF POR A TO, EQL 0 ! Column output wanted 

( 

-NCPSGL_ENTITY EQL NMASC_ENT_NOD ! Check for leading executor case 
8 CHSRCHAR (.BFR + 2) GTR 127 ! Executor bit set? 
0 
0 -RTNPTR = .BFR; ! Return false on no column output or 
1 RETURN FALSE ' Executor display is first in a node 
! END ! display 
1 oO 
1 PTR = .BFR; ' Set pointer 
; PEND = .BFR + LEN; ! Set end pointer 
1 i. = .NCPSA_COLTBL; ! Set table address 
CHSFILL (" "7 LINSIZ, LINBUF); i Blank the Line buffer 

= 2; 


NCPSFAOSET (); 
| hla »NCPSGL_ENTITY OF 


Set to convert entity 
Deal with the entity code 


REN SS OS NONE OODNONE WU OOD IEA RUUD O DD NO NR UO OOO oF 


CNMASC_ENT_NOD] : 
BEGIN 
LOCAL 


Node address and name 


a ee  __ _._._ ee Lee eee 
ee ee ec ee ee cm ee a ee ea ee ee ee ee a a nd ed od od 


POPonononsnononononofnonofononoery 
WAI Nonononnonononyd 


Bo Se Oe Se Se Se Se Be Se Se Fe Se Se Se Ge Se Se Sse Se Se Se Se Ge Ge SH SH Ss Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Ss Ge Se Ge Se Se Fe Se Se Se Se Se Se Ss Se Se Sees 


WRI =O OONAUS WN “OO OONAUS WN“ OOONGU 


8 AREA, 

39 AREA_ADDR : BBLOCK (4); 
41 AREA_ADDR = (.(.PTR) <0, 16,0 >); 
242 AREA"= .AREA_ADDR CNMASV_AREA); 
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NCPSHOLIS Process Returns from SHOW and LIST base -1984 23:53: AX-11 Bliss-32 V4.0-74 Page 4 
vous NCPSSHOCOLFMT Produce Column Output 1a-8ep- 3B 93:23:96 NEP SREINGESHOL Y$:03074 . 165 
4 
44 IF .AREA EQL 0 
THEN 
BEGIN ! No area so handle normally 
ADDSTR ('!3uw'); 
ADDFAO (.AREA_ADDR); 
END 
ELSE 
BEGIN ' Non zero area must be separated from address with '.' 
PAD = 0; ! Remove padding so it all fits 
ADDSTR (*!2uW.!uW'); 
ADDFAO (.AREA); 
ADDF AO (,AREA_ADDR CNMASV_ADDR)); 
PTR = .PTR + 2; 
CTR = CHSRCHAR (.PTR) AND AX°7F*: ! Executor bit 
if -CTR NEQ 0 ! Is there a name present 


BEGIN 

ADDSTR (* (!AC)"); 
ADDFAO (.PTR) 

END 


BTR = .PTR + .CTR + 1 ! Over the node entity 
tg" ENT_CIR, NMASC_ENT_LIN, -NMASC_SENT_OBJ] : ! Circuit, Line or object entity 
ADDSTR (*!AC'); ! Counted string 


ADDFAO (.PTR); 
PTR = .PTR + CHSRCHAR_A (PTR) 


SIND DDD DDD DDE TTI EB BS BB BEE EAA 
WRI 9 ODNAUNE WN 9 ODNOAUE WN OOONA NEW -OOONOUS 


PMOIPOPOROPINIPONOPONIPPUPofonononorngy 


Sl ee a ee ee ee ee ee ed a 
b> tet heed SNS SISSIES SIA PAA AAA AAA MMIII II 


mm a a a a a a a ae a od = = = 2 = 22d 9 = 2 = = = ot = = 9 2 2 2 3 SS 4 SY 


ROPINIWIWIWIIPIPIPI NWI NWI IPOD WWII AIP NI ANIA NIA BH EWAN BBB PAE ESP 


CNMASC_ENT_MOD): ' MODULE 
BEG! ' print the entity 
NCPSSHOENTITY (PTR); ! Print entity strin 
NCPSFAOWRITE (); ' Write it to the file 
+ pai (); ! And set up for next one 
74 : 
ie aoa? SENT_LNK): ' Links 
7 PTR = .PTR + 1; ! Skip by format byte (0 if Link #) 
7 ADDSTR(*!UW'); ! Word Link number 
7 ADDFAO(..PTR); 
80 PTR = .PTR + 2; 
it END; 
1 3 CNMASC_ENT_ARE): ! Area is a byte of zero 
1 84 GIN ! followed by byte of area number 
1 5 ADDSTR ("!UB'); 
1 TR = .PTR + 1; 
1 ADDFAO (..PTR); 
1 =. + 13 
1 
1 
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NCPSHOLIS Process Returns from SHOW and LIST 18.48 -1984 :53:26 AX-11 Bliss-32 V4.0-74 p 4 
a NCPSSHOCOLEMT Produce Column Output 1278 08-1 3b 93:23:46 ENCE. SRE NCPSHOLIS.832; a0¢ 463 
; 1300 1291 COTHERWISE) : ' For all rest includi loggi 
2 1301 1398 BEGIN ee 
3 8g 129 LOCAL ! Save logging type for a moment 
: : B7 : 8¢ LOGTYP : BYTE 
: 1305 129 LOGTYP = CHSRCHAR (.PTR); ' Save the logging type 
: 1306 1599 ADDSTR ("17 "Ds ites lie 
; 130 1298 NCPSSHOENTITY (PTR); i Print entity string 
: 1308 1299 DSTR ('!/ '); i Blank Line 
3 09 99 IF iNCPSGL_ENTITY EQL NMASC_ENT_LOG ! If Logging 
3 1 1 0¢ 4 y NCPSB_LOGTYPE EQL .LOGTYP ! and the type matches 
:4 ig 1304 4 BEGIN 
: 1314 1305 4 NCPSFAOSET () ! Ignore the entity 
: le 1309 3 = 
: 1317 1308 4 BEGIN ! Otherwise print the entity 
3; 1318 1309 4 NCPSFAOWRITE (); ' Write it to the file 
: 1319 1 10 4 NCPSFAOSET (); i And set up for next one 
3 1350 131 4 NCPSB_LOGTYPE = .LOGTYP; ! Save the log type 
: 13 1 1316 ¢ a tac = FALSE ! Column head printed again 
21 $ 1312 END; 
: 1324 1313 
: 1325 1316 TES; 
1B IN 
; 1328 1319 IF NOT .NCP$B_COLHEAD ! Write header if not already 
: 1383 1354 THEN GIN 
> 1331 1322 NCPSWRITESHO (.NCPSA_COLHEAD); ! Write header 
3 1332 132 : NCPS$B_COLHEAD = TRUE ! None left to write 
3 1333 1324 END 
: 1339 1353 5 
: 1332 1359 OUTDSC £0} = QUTBUFSIZ; ! Setup output buffer 
+ 1337 1328 OUTDSC £1) = OUTBUF; 
: 1338 1393 NCPSFAOL (OUTDSC); ! Convert to text and move it in 
; 1340 1331 CHSMOVE (.OUTDSC CO), .OUTDSC [1], LINBUF + .PAD); 
; 138 13 3 LINDSC £0} = LINSIZ; ! Describe the Line for writesho 
: 1364 ’ : LINDSC (1) = LINBUF; 
> 1345 1 6 BLDLINE: ' Block to build the Line 
: 1347 i 3 BEGIN 
: : 3 i 33 IDFND = FALSE; ! We have not found any parms as yet 
; 1 30 41 WHILE .PTR LSSA .PEND ! while there is data 
31 3 1 rk 4 BEGIN 
; 135 1344 4 ID = .(.PTR) <0, 16, O>; ' Parameter id 
; ! 23 ! 5 ? INCR IDX FROM ' Scan the table for the parm 
: 1386 1 “$ 5 BEGIN 


.— 


| 

/NCPSHOLIS Process Returns from SHOW and LIST 

“¥be2000 NCPSSHOCOLFMT Produce Column Output 

By 
:4 § 1 2 é BEGIN 
31 1 a IF .IDFND 
31 1 ; 6 THEN i 
: 1 1 BEGIN 
: 41 1354 7 NCPSWRITESHO (LINDSC); 
| 1 29 7 NCPSFAOSET (); 
: 1 1 é 7 CHSFILL (* ©) "LINSIZ, 
4 1303 IDEND = FALSE 
e = 
: | 1800 6 LSE 
: 1 1361 6 LEAVE BLDLINE 
ey 1368 ; ' 
: 1 1 if .TBL C.IDX, PRMID] EQL .ID 
3: 1 1365 5§ THEN 
:1 1 a BEGIN 
: i 1367 6 IF CHSEQL 
: 1378 1369 6 .TBL C.1DX, FLDSIZ2, 
> 1379 1370 6 -TBL C.1DX, FLDOFF + 
> 1380 1371 6 0, LINBUF, 
HB ie f 
: 1388 137% 6 THEN 
> 1384 1375 BEGIN 
: 1385 1376 7 ID = .IDX; 
24 137 7 EXITLOOP 
ee ast 
> 1389 1380 6 IDFND = TRUE 
> 1390 1381 6 END 
: 1391 1 Be 5 END 
2 Eee eee 
> 139% 1385 4 OUTDSC [0] = .TBL C.1D, FLDSIZ): 
; 1395 1386 4 ouTpS¢ (1) = :TBL C.1D. FLDOFF) + 
3 1397 1388 4 IF NOT V2_SHOW_COMPAT(.PTR) 
; 1399 1390 4 OUTDSC [OJ = 0; ! 
; 1eo0 1392 4 NCPSFORMATPARM( 
> 140 1393 4 .NCPSGL_ENTITY, i 
: 140 1394 4 PTR i 
; 1406 1395 4 FALSE 
+ 1405 1 % 4 TRUE, i 
: 406 1397 4 OUTDSC, i 
+ 140 1 98 4 OUTDSC C0), i 
: 1008 1200 3 er 
; 1410 1401 END; ! Of Labeled BLDLINE block 
: 1412 1208 NCPSWRITESHO (LINDSC); ' 
: 141 1404 SRTNPTR = ; i 


14-Sep-1984 
ff ..,7et C.IDX, PRMID] EQL 65535 ! If not found in table, 


1 
HB-Sep-1984 25:55:26  yayctt 8 fe8-52 v4.27 


If current Line non-blank, 
use multiple Lines 


' Write Line ©o far 
' Setup next one 

LINBUF); ! Blan the Line buffer 
! Reset to restart search 
! Mark Line empty again 


! Not found, done here 
! Do the id's match? 


If field in Line blank, use it 


! Size of sourcel 
LINBUF, ! Address of source! 
oer sourced 


' Leave with the correct index 


! Just mark Line non-empty and go on 


! Set an outpu* descriptor 
LINBUF ; 


Map V2 to V3 parameters; if ignored, 
Do not pass any result buffer 


Format one parameter 
Entity type 

Source pointer 

No name for param 
Data for param 
Descriptor 

Return length here 
Return pointer here 


Write the Line so far to output 
Return pointer for remainder 


4 


Page 
7 ( 


SS — — + 
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1S Process Returns from SHOW and LIST 1b-se -1984 23:53:26 AX-11 Bliss-32 V4.0-74 Page 45) NCP 
NCPSSHOCOLFMT Produce Column Output 1278 08-1 3b $323 346 NCP.SRC NEPSHOL YS :03904 . (10) | V04 
1405 : 1 
1415 14 RETURN SUCCESS ! We wrote a line to output : 1 
1416 1009 ; . | 4 
141 1408 END; ie 
: } 
| * 
-PSECT $PLITS,NOWRT,NOEXE,2 3] 
7 55 32 21 04 00816 P.ADA: .ASCII <4>\!3uW\ : :] 
57 55 31 26 25 22 33 1 8s O81B P.ADB: .ASCII <8>\!2UW. !UW\ : : 1 
9 43 41 21 28 20 6 08 4 P.ADC: .ASCII <6>\ (IAC)\ ; :] 
43 41 21 O82B P.ADD: .ASCII <3>\!AC\ : :] 
57 55 21 03 OOB2F P.ADE: .ASCII <3>\!UW\ : :] 
42 55 21 03 00833 P.ADF: cASCII <3>\‘UB\ : i] 
6 ef 1 03 00837 P.ADG: “ASCII <3>\'7 \ : : 
0 2F 21 03 00838 P.ADH: .ASCII <3>\!/ \ : 3 
‘4 
-PSECT S$CODE$,NOWRT,2 3 | 
OFFC 00000 NCPSSHOCOLFMT: 7] 
.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 1121 : 1 
5B 00000000' 00 9€ 00002 MOVAB OUTDSC, R11 ; 21 
5E FF74 CE 9E 00009 MOVAB <-140(SP), SP : 2:1 
51 0204 CB dO 0000 MOVL  NCPS$A_COLTBL, R1 ; 1200 i] 
13 13 0001 BEQL ; 2] 
000000006 00 5 00015 TSTL NCPSGL_ENTITY > 1203 : 1 
13 12 0001B BNEQ ; 2) 
50 08 AC DO 0001D MOVL BFR, RO 3 1205 : 1 
7F BF 02 Ad 91 00021 CMPB = (RO), #127 ; 2] 
08 1B 00026 BLEQU 2$ : 21 
oc BC 08 AC p0 00028 1$: MOVL BFR, @RTNPTR ; 1209 i] 
02A7 31 00020 BRW 29$ 3 1210 2% 
6E 08 AC DO 00030 2$: MOVL. BFR, PTR : 1214 
SA 08 AC 04 AC C1 00034 ADDL3 LEN, BFR, PEND : 1215 
59 51 D0 0003A MOVL. 1, TBL : 1217 
0080 «BF 20 bE 00 2C 0003p MOVCS #0, (SP), #32, #128, LINBUF : 1218 
04 AE 00044 : 
53 02 v0 00046 MOVL #2, PAD : 1219 
00000000v 00 00 FB 00049 CALLS #0, NCPSFAOSET > 1221 
52 000000006 90 p 9050 movi NCPSGL_ENTITY, R2 : 1238 
54 00 BE 3C $089 MOVZWL @PTR, AREA_ADDR : 1382 
52 54 06 OA EF 00050 EXT2V #10, #6, AREA_ADDR, AREA > 123 
17 12 00062 BNEQ : 1235 
00000000' 09 9F 00064 PUSHAB NCP$GQ_CTRDSC : 1238 
00000000" 00 9F OO06A PUSHAB P.ADA : 
00000000v 00 Oe re 9070 CALLS #2, NCPSADDSTR : 
4 0D 007 PUSHL  AREA_ADDR : 1239 
3 11 00079 BRB 4$ ; 
p4 0078 3$: CLRL  —s- PAD > 1243 
90000000" F 9 7 PUSHAB NCP$GQ_CTRDSC > 1244 
0000000' OF 8 PUSHAB : 
00000000v 00 FB 00 CALLS #2, NCPSADDSTR ; 
DD 00090 PUSHL AREA > 1245 


eee Ss IOI, 059909998050 Wi 909 is I I I 


1 
| NCPSHOLIS Process Returns from SHOW and LIST bese 1984 253: AX-11 Bliss-32 V4.0-74 Page 46) 
YO6=000 NCPSSHOCOLFMT Produce Column Output 12-88-1382 $3:28398 NCP SREINCPSHOLTS$ 632; ° (10) | 
| 7E 4 re GA ) EP $096 enths AN THOT AREA ADDR (SP) : 1246 | 
| 00000000v 00 } FB OO09E 48: CALLS #1, NCPSADDFAD =” : :] 
; C A ADDL 2, : 1249 :] 
52 00 BE FF OA EXTZ2V #0. #7, @PTR, CTR : 1250 : 1 
if z O0A BEQL =«SS$ + 1251 :] 
00000000' 00 9F 0008 PUSHAB NCP$GQ_CTRDSC > 1254 7] 
00000000" 00 9F 0008 PUSHAB DC : 7] 
00000000v 00 02 FB anes CALLS #2, NCPSADDSTR Fcies : 
00000000v 00 Qi FB 000C CALLS #1, NCPSADDFAO : | : 1 
50 6£ 2 gi bO0¢t 5$: ADDL3 CTR, PTR, RO : 1258 :] 
6E 01 AO GE 0 D MOVAB 1(R6), PTR : 3 
7D (11 0 0D4 BRB 10$ : 21 
FFFFFFFC  8F 52 D1 00006 6$: CMPL =-R2, WG 3 1261 :] 
OA 13 000DD BEQL 7$ : :] 
01 52 D1 OO0DF CMPL  —R2, #1 ; : 1 
05 13 000E2 BEQL : : 1 
03 32 D1 O00E4 CMPL R2, #3 : : 1 
27 12 Q00E7 BNEQ ; : | 
00000000' 00 9F OO0E9 7s: PUSHAB NCP$GQ_CTRDSC + 1263 31 
00000000' 00 9F OODEF PUSHAB P. : 71 
00000000v 00 02 FB O00FS CALLS #2, NCPSADDSTR ; 7] 
6E DD OOOFC PUSHL : 1264 3 1 
00000000v 00 01 FB OOOFE CALLS #1, NCPSADDFAO ; 7] 
50 00 BE 9A 00105 MOVZBL aPTR, RO : 1265 : 1 
6£ D6 00109 NCL : : 1 
bE 50 CO 0010B ADDL2 RO, PTR F :] 
68 11 00108 BRB. «128 : | 31 
04 2¢ D1 00110 8$: CMPL = R2, W4 > 1268 | :] 
13 12 00113 BNEQ 9$ : : 1 
SE DD 00115 PUSHL : 1270 3:1 
00000000v 00 01 FB 00117 CALLS #1, NCPS$SHOENTITY : 31 
00000000v 00 00 FB OO11E CALLS #0. NCPSFAOWRITE : 1271 31 
0098 31 00125 BRW 14 : 1272 31 
FFFFFFF9 8F 52 D1 00128 9$: CMPL R2, #-7 : 1275 3 1 
24 12 0012F BNEQ 11% : 31 
6E D6 00131 INCL PTR : 1277 31 
00000000' 00 9F 01 3 PUSHAB NCP$GQ_CTRDSC : 1278 71 
00000000' 00 9F 001 PUSHAB P.AD : 31 
00000000v 00 02 FB 0013F CALLS #2, NCPSADDSTR : 7 1 
00 BE DD 00146 PUSHL PTR : 1279 31 
00000000v 00 01 FB 00149 CALLS #1, NCPSADDFAO : 31 
6E 9 9 B12 ADDL2 * PTR a3 89 3 1 
1 00153 10$: BRB 15§ t 122 71 
05 52 01 O13 11$:  CMPL R2, #5 > 1283 7 
12 00158 BNEG si : 21 
00000000' 00 9F O015A PUSHAB NCP$GQ_CTRDSC > 1285 7 
00000000' 9 9F 00160 PUSHAB  P.A : 2 
| 00000000 00 02 FB 00166 CALLS #2, NCPSADDSTR : 3 
6E 06 0016D INCL PTR ; 1286 21 
00 BE DD O16F PUSHL PTR > 1287 31 
00000000v 00 1 FB 4 g CALLS #1, NCPSADDFAO : : 
6f D6 0017 INCL PTR : 1 88 : 
63 11 00178 128: BRB 17$ > 122 : 
| 52 00, BF 90 0017) 138: MOVE. PIR, Locryp : 1556 : 
| 00000000' 9F 00181 PUSHAB NCP$GQ_CTRDSC : 1297 : 
| 


a 


1 | 
| NCPSHOLIS P ss Returns from SHOW and LIST 1b-se -1984 53:26 AX-11 Bliss-32 V4.0-74 Page 47) 
“¥O02000 NCPSSHOCOLFMT. Produce Column Output 12-208-1 384 93:23:48 ENCP.SRE NCPSHOLIS.B32; . (10) 
| 00000000" 09 9 90187 PUSHAB P,ADG ; | : | 
00000000v 00 FB 0018D CALLS #2, NCPSADDSTR : | : 
E DD 00194 PUSHL SP + 1298 : | 
00000000v 00 1 FB 00196 CALLS #1, NCPSSHOENTITY : | 3} 
$0000000" 09 oF OOIAS USHA NCLSGO_CTRDSC Beced i] 
o0000000v 99 ; FB OO1A9 CALLS #2, bPSADDSTR } | i | 
000000006 99 1 00180 CML NCSC. _ENTITY, #2 ; sed ey 
52 0201 cs 9 0189 CMP NCPSB_LOGTYPE, LOGTYP ; 1302 } 
00000000v 00 99 re Gote4 14$: CALLS #0 NCPSFAOSET : 1305 | : 1 
| 17 11 001C7 158: BRB 17$ > 1304) .) 
00000000v 00 0 FB 001¢9 16$: CALLS #0, NCPSFAOWRITE + 1309 ¢ 
00000000v 00 09 FB 00100 CALLS #0. NCPSFAOSET + 1310 2 
0201 CB 90 00107 MOVB §LOGTYP, NCPSB_LOGTYPE ; 1311 .] 
0200 (CB 94 001DC CLRB  NCP$B_COLHEAD + 1312 2 
10 0200 CB £8 0O1E0 17$:  BLBS #NCPS$BTCOLHEAD, 18$ + 1319 3} 
O1FC CB DD OO1E5 PUSHL  NCPSA~COLHEAD : 1322 : 
000000006 00 01 FB O01E9 CALLS #1, NCUPSWRITESHO ; 
0200 CB 01 90 001FO MOVB #1. NCP$B_COLHEAD + 1323 
O1F4 8F 3C 001F5 18%:  MOVZWL #560, OUTDS + 1327 
04 AB 08 AB 9E OO1FA MOVAB  OUTBUF, OUTDSC+4 : 1328 
5B DD OO1FF PUSHL R11 : 1329 
oe oe 06 AB DB 00908 ROVE: OufDSeens RO 4331 
04 AEG3 60 6B 28 0020C MOVC3 OUTDSC, (RO), LINBUFCPADJ : 
FB OAD 80 8F 9A 00212 MOVZBL #128, LINDS > 1333 
Pieter, 4 te eer Get ee eed 1B 
SA 6F D1 $0516 19$: CMPL PTR, PEND + 1341 
03 1F 00221 BLSSU _21$ : 
009F 31 00223 208:  BRW 28$ : 
57 00 BE 3C Basse 21$: MOVZWL @PTR, ID 3 1344 
56 D4 0022A CLRL—«IDX + 1345 
6946 DF 0022C 22$:  PUSHAL (TBL)CIDX > 1348 
FFFF =F 9 8 a0e8t CMP a<sP)+, #65535 
EA $3 ig $05 6 BLBC _——«IDFND, 20$ > 1351 
FB AD OF 00259 PUSHAB LINDSC > 1354 
SSSG00E 9 gS FB Aises —EALLS Bh: Mereunepo ao 
0080 8F 0 6 o oo 2 O094h movcS #0, (SP), #32, #128, LINBUF ; 1356 
56 D4 $0585 CLRL = IDX : 1357 | 
58 4 00 55 CLRL —s«IDFND > 1358 | 
50 6946 DE 00257 238:  MOVAL (TBL)CIDX], RO > 1364 
57 60 10 00 ED 00 5 CPZ #0, #16, (RO), ID ; 
) Seeee mie im. a . 
00 20 04 AE4O ie 31 2D 0 $A cnpee R1, LINBUFCROJ, #32, #0, LINBUF 2 1368 
05 12 i BNEQ 24$ : 
57 6 D 7 MOVL 10x, 1D > 1376 
0B 11 00278 BRB 6$ > 1375 
58 01 DO O027A 24 MOVL #1, IDFND > 1380 


ss 


ey 
NCPSHOLIS Process Returns from SHOW and LIST 15-Sep-1984 53:26 AX-11 Bliss-32 V4.0-74 p 48 NCF 
042005 NCPSSHOCOLFMT Produce Column Output 1278 08-1 3b 93:23:98 NCP SREINCESHOL 1$.635. 39° 10) v04 
A? ; 7FFFFFFF 8 £3 0027D 25$: AOBLEQ #2147483647, IDX, 22$ : 1364 
26 6947 DE 28: MOVAL (fav Cio3 RO : 1386 
B 3 AO 9A 9 MOVZBL 3(RO), OUTDSC : 
1 4 AE 9E D MOVAB LINBUF R1 : 1386 
2 2 AO 9A 1 MOVZBL (RO), R2 : 
| 04 AB 51 52 C1 00295 ADDL3 R2, RI, OUTDSC+4 F 
| E DD 0029A PUSHL PTR : 1388 
00000000v 00 1 Fe : 6 CALLS #1, ya SHOW_COMPAT : 
02 0 € A BLBS RO, 278 ; 
6B 04 00 Ab CLRL — OUT DSC + 1390 
4800 i BB 002A8 27$ PUSHR #*M<R11,SP> : 1398 
B OD 0 AC PUSHL R11 : 1392 
1 DD OO2AE PUSHL #1 ; 
E D4 09 BO CLRL. =(SP) ; 
14 AE DD 00 Be PUSHL PTR + 1394 
000000006 00 DD 0028 PUSHL NCPSGL_ENTITY + 1393 
00000000v 00 7 €B 0028 CALLS #7, NCPSFORMATPARM : 
FF59 31 O02C BRW 19$ + 1341 
F8 AD 9F 002C5 28$:  PUSHAB LINDSC + 1403 
000000006 00 01 FB 002C8 CALLS #1, NCPSWRITESHO ; 
oc Bc 6E DO O02CF MOVL PTR, @RTNPTR + 1404 
50 01 DO 0005 MOVL #1, RO + 1406 
04 00206 RET : 
50 D4 00207 298: CLRL ~— RO + 1408 
04 00209 RET : 


; Routine Size: 730 bytes, Routine Base: S$CODE$ + O4CE 


ee oe ee ee ee Ee ee ee  —_— ee 


— 


SS A a a 


Be Se Be Be Be Ge Be Be Be Se Ge Se Be Se Se Se Fe Se Ge Se Be Se Se Be Se Se Oe Se Ge Oe Ge Oe Oe Be He Oe Oe Ge Oe oe Oe Oe Oe Oe oe OH Se Oe OH ee He Hee Oe Oe ee 


3 alli -NCPSGL_ENTITY OF ! Format the header for the block 


cEes 


Fs 


one Fut MOD : Report address and name for a node 


o 
w 
DADAM 


S 


Address of node 
Area 


ARER, 

AREA/ADDR : BBLOCK (4); 
AREA_ADDR = (.(.PTR) <0, 16,0 > 
AREA™= .AREA_ADDR CNMASV.AREA]; ! 
NOD_ADR' = .AREA_ADDR CNMASV_ADOR); 


IF .AREA EQL 0 


Node address in low 10 bits, Area in upper 6 bits 


AINZSSELF 
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¥06 2000 NCPSSHOENTITY Convert Entity in Return 127808- 1986 $3:23596 NCP SREINGPSHOL IS b32r3 . (11) 
1419 1409 1 ZSBTTL 'NCPSSHOENTITY Convert Entity in Return’ | : } 
16 9 161 | GLOBAL ROUTINE NCPSSHOENTITY (PTRADR) :NOVALUE = ! : 
lo¢¢ Wig J ive : 
14 1413 1! FUNCTIONAL DESCRIPTION: : 1 
1424 1414 13 a. 
1425 1415 1! Convert an entity code in a return to fao control string and : 1 
1426 1416 1 i parameters. :] 
1427 1417 1: : 3 
1428 1618 1 ' FORMAL PARAMETERS: ; 1 
1429 1419 1: : 1 
1430 1420 1! PTRADR Address of pointer to entity encoding in buffer 2] 
1° 1 i? 1 ! Return pointer past entity here : : 
14 § 14 § 1 ! IMPLICIT INPUTS: : 1 
14 1424 1! :] 
1435 1405 1 NCPSGL_ENTITY Entity code : 1 
14 14 $ 1! : 1 
1437 14 1 ' IMPLICIT OUTPUTS: 3 1 
14 1428 1! : 1 
1439 1469 1! NONE : 1 
1440 14 1! 3 1 
1441 1431 1 ! ROUTINE VALUE: g 7 
1aag 1432 1 ' COMPLETION CODES: 31 
144 1433 1! 3 
1444 1434 1! NONE 31 
1445 1435 1! : 1 
1446 1436 1 ! SIDE EFFECTS: 
1447 1437 1! 
1448 1438 1! NONE 
1449 1439 1! 
1450 1440 1 !-- 
1451 1441 1 
145¢ 1449 3 BEGIN 
145 144 
1454 1444 2 LOCAL 
1455 1445 2 CTR, ! Local counter 
1456 1446 2 PTR ' Local pointer 
1457 1447 2 : ' 
1458 1448 é : 
1459 1449 PTR = ..PTRADR; ! Setup pointer 
14 1450 g 
14 1451 
14 14 é 
14 14 
14 1454 
14 1455 
14 1456 
14 14 
14 14 
14 14 
14 14 
14 14 
14 14 
14 14 
14 14 
14 14 


~~ 
ws 
ARAM 
MEW —O O@~ 


); 
Extract the area from the upper 6 bits 
| 


~ 


NO 


~ 
BTS SaNo Rows Dee we 


AVI SSSLESEANLSSSLEAFAV=AS Sa 


MAMAN 
oOo oo 
SRE . SSSSVSSRASF OOnNOu 


SSLESR 


POPIPOROPORONOND a 


CYSBVOVSRRESLSSesenran—o 


me ee ee ee ee ek ek ed ea nt ed oe dd td 8 td ed wd 


Se Se Be Oe Oe Se Oe Be Se Be Oe Oe Se Se Be Be Se Se Ss Be Oe FH Se Se BH Se Be Be Ge Se oe Se Se Be Be Be Oe Se Se Se ae Hoe SH Se Se ee Be Se Se Se Se Se ee SH eee 
WINPROPOPU WWIII BB BWW BBB BB BVM & BWW BB 


am a ee a ek ae a a a tk ad et ot od od = td = oe 2 «ws = = = 2 SS I 2 = = 4 


PUPP DV PPV PPV SUSU SISTA 
PUP PUPP AAAI AIA 

ee San amnandsheeste dee ek 
M—OCDOONOU SW -OVOOn 


rns _ from SHOW and 4i5) 
n 


Y Convert Entity 
THEN 
ADDFAO (.NOD_ADR) 
ELSE 


BEGIN 
ADDFAO (. AREA); 
ADDF AO (.NOD_ADR); 


PTR = .PTR + 2: 
IF .BBLOCK C.PTR, NMASV_ENT_EXE] 


N 
If _ .AREA EQL 0 
TH 
ADDSTR 


ELSE 
ADDSTR 
ELSE 


IF .NOD_ADR EQL 0 
THEN 


BEGIN 

IF .AREA EQL 0 
ADDSTR (‘Loop node 
ADDSTR (‘Loop node 


SE 
IF _ .AREA EQL 0 
THEN 


ADDSTR 
ELSE 
ADDSTR 
END 


CTR = CHSRCHAR (.PTR) AND %X'7F';: 
CHSUCHAR (CTR, PTR); ' 


1 
Return 1 
{ 


("Executor node 
(‘Executor node 


("Remote node 
("Remote node 


+ ats vi $3:23:46 ase Bliss-32 V4.0-74 Page 30 


NCP.SRCINCPSHOLIS.832; (1 


No area so handle normally | 
! Non zero area must be separated from address with ‘.' 


! This the executor? 


'uw') ! Executor node 


'UW.!UW') |! Executor node area and address 


! Is this a loop node? 


'uw') ! Loop node 


'UW.!UW') |! Loop node area and address 


= !UW') ! Other node 


= ‘UW. 'UW") !' Other node 


' Get count and drop exec node bit 
' Put the real count back 


IF .CTR NE ' Is there a name 
EN 


BEGIN : 
ADDSTR (* (!AC)"); 

ADDFAO (.PTR); 

END 


PTR = .PTR + .CTR + 1 ' 
END: 


CHMASC ENT LIN) : ; 


ADDSTR ("Line = !AC‘'); 
ADDFAO (.PTR); 
PTR = .PTR + .(.PTR) <0,8,0> + 1 


(-NMASC_SENT_LNK): 
PTR = .PTR + 1; 


' Link address 
! Skip by format byte (O=Link #) 


! Report the name 


Advance the pointer 


The Line is a counted string 


Be Be Se ee Be Be Se Be Ge Be Se Be Se Se Be Se He Se Se Se Se Se Se Ge Se we Se Se Se Oe Se Se ee Se Se Se Se Se He Oe Se Oe Se Se Se Ss Se ee SH Se Se Se Se oe 


sam 


1533 


IW lvalvalval val val eal wal al al al ah eah al “al al “al al eal eal eal eal eal 
QMAMAMAUIMNUVUUIE BEEBE 
DOONAVUSWN —OOODNOAUS WN O 


GIES SFSFSSS 
JIISU RNASE EUS ORES 


em a a tk a a at ad a 2 et as — I 


POPPA ASIII 


FARANV—S 


——e 


v) 
T 


vo 
“ne 
zw 
ow 
2D 
ae 


DPDDPEDA AAA BB EEE EAI inopononononr) 
WR SO OONAUVE WN $0 ODNOAUEWN OO ODNOYL EWN "OOONOUFSW MO 


—=PIPINIPOPIAININI WNW IRINA II INIA AAI PIP NIIP NIAAA AAAI nn 


pa196 12:48:16 — ENCP-SREINERSHOLIS-0327 1 


1 
rns from SHOW and LIST bese 
Y Convert Entity in Return 14-Se 


ADDSTR('Link = !UW'); 
ADDFAO(..PTR); 
PTR = .PTR + 3; 


CHAASC LENT L062 : ! Logging is a byte of sink type 


ADDSTR (Logging sink type = '); 
sayee toe -(.PTR) <0, 8, 0> OF ! Obtain the proper code 


NMASC_SNK_CON] : ADDSTR (‘console'); 
NMASC_SNK-FILJ : ADDSTR (‘file'); 
NMASC_SNK_MON] : ADDSTR (‘monitor’); 
TES 
PTR = .PTR + 1 
C-MSC SENT 08 : ! Object is a counted string 


ADDSTR ("Object = !AC'); 
ADDFAO (.PTR); 
PTR = .PTR + .(.PTR) <0, 8, 0> + 1 


eee ! Circuit name is a counted string 
ADDSTR ("Circuit = !AC'); 
ADDFAO (.PTR); 
PTR = .PTR + CHSRCHAR(.PTR) + 1; 
END; 
neues ENT_MOD): ! MODULE type should be skipped past 


4 = .PTR + CHSRCHAR(.PTR) + 1; 


CNMASC_ENT_ARE): ' Area is a byte of zero. 
BEGIN ! followed by byte of area number 
ADDSTR cares = !UB"); 
+ 


PTR =. ; 
ADDFAO (..PTR); 
PTR = .PTR + 1; 
END; 

TES; 

-PTRADR = .PTR; ! Return pointer beyond entity 

RETURN 

END; 
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20 
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20 
20 
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30 


20 
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64 
64 
20 
20 
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20 
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vw 


oF 
6F 
30 
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65 
65 


6E 


Ne 
—— 


kad 2 


nr 
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CUNNING OPO row 
movowoeur emo 
MNAON BO NMNMLPN SOM frr~s 
OVIWS RNOWOOCOWwWMSF LTO Om 
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vw 
oo 


68 
52 


Wie NA NO NONWNIW 
BNA AXAAIA AAI VA UA US Nau 


WS MOMS NMM NS WS UNF) 


NAAAAAAAASAS VIIA AVMASVUA NNN 


MOM TOMNIN™T OOO 1 2 OO OD 


MWFSOAWUOOOOOOCNON OM OWOOMow! 


PIONENOFL ES POONOWOVNOWSI NOW 


COOOCSOOOOOOGOOOOOOOOOOOoOOo 
COOCOOCOCOCOCOOOCOOOOOOOOOOoOOoOO 
000000000 000000 09 00 0000 00 00 C9. C9 CD CD CD OD CD 


VIN FMS UMNOUVPS WP DOM MS Drown" 
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—m@wOrmn~ajO Orn 


DOG LM OP NW "OW 


COOCoooooooooooooooooooooooo 


WI -=§ POOMOVUOMOUNMOOS- DOOWSOOOooO 


-PSECT 
-ASCII 
ASCII 
ASCII 
ASCII 


1s p-1984 23:55:26 YAN 11 Bl isg-32 v4.0-74 


CP.SRCINCPSHOLIS.832; 
SPLITS,NOWRT,NOEXE,2 
<19>\Executor node = !UW\ 
<23>\Executor node = 'UW.!UW\ 
<19>\Loop node = 'UW\ 
<23>\Loop node = 'UW. !UWN 
<19>\Remote node = 'UW\ 
<23>\Remote node = !UW.!UW\ 
<6>\ (C!AC)\ 
<10>\Line = !AC\ 
<10>\Link = !UW\ 
<20>\Logging sink type = \ 
<7>\console\ 
<4>\file\ 
<7>\monitor\ 
sie erect = !AC\ 
<1 'AC 


>\Circuit = ! 
<10>\Area = !UB\ 


\ 


SCODES ,NOWRT,2 
NCPSSHOENTITY 
NCPSADDFAO, R& 
NCPSADDSTR, R7 
P.ADI 

NCP$GQ_CTRDSC, R5 

aPTR TR 

NCPSGL_ENTITY, R3 

11$ 

(PTR), AREA_ADDR 

#10, #6, AREA_ADDR, AREA 
#0, #10. AREATADDR. NOD_ADR 


AREA 
2$ 


R4 

3$ 

AREA 

a NCPSADDF AO 
#1, "NCPSADDF AO 
#2, PTR 

(PTR) 

R4, 4$ 

RS 

R6 


Save R2,R3,R4,R5,R6,R7,R8 


Pp 
290 435 
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02 


FFFFFFF9 


Process Returns from SHOW 
62 


| 
Nt OD VK RK TRO OWOSR fowls 


53 


seam 


s-32 V4.0-74 


1 
1$-Sen-1964 $3288 PACE SRP SNEESHaL Ye -83549 


rocess Ret ond He! 
CPSSHOENTITY Convert Entity in Return 


urns from SHOW 


Pp 
N 


vecam 


2 om wt ow ~ o wv Wo 

wv wv ww nnn WwW wo wo “oo Orr 
w w ww w w w Vala! 
- - = - = = os er 


TTearerererlererlerlerlerlererleleler el SiS. Bee eel el eee eee ere es ee er ee er ee 


« 

i. 4 <= oO -_- [+4 oO 

_— —- <« a = 4 
w ym Me ” u- & 
a a a& . Qa a & 
a a a on} a a <« 
~m . << oa x <= =< 
a A AA cr Ded Aa 
aw a 86a a a a 6.2 
. ~ +46 ~ ,v vw wv ww WW ve ve @ 

- = 22 2 > ® 322 2 22 a- ® xz az 
a « a a a Leo a e bd 
ef <er-oen < w * <H OO Fe WM HAH PH Freee oar 
OWN FAWNW CUNMOWN OMRON CUM TOY~OMOM Vr Oe ee 
—Co HVE SVE SCAVEVEoO BOA aBVENwNS eK VEO Baow~BO108 

o) 

ort got Fe jACGrIzt worrixitn i0gm AGttogst oi 
WMUIO8 WMH 100 WMV 00 WOW UH JOO wWw>>Oawnn dH YUO>e- 
Z2ZDDaszS2D7D Aes S2DDTaAE SD De Dae ZT ZOOECE SD DA ZTDIaZOw 
@MOA0MVM0A0 VOVMOOA0 OLMO0A4000 VOvV@EEOYVO0A00-00—-F a 
bad “A A iced fF AA AA 
~o ~ oo o So - MN MT mo 
- -- - ™N NU Nm CT om 
-O@u-wv Vu Ot VOCUUN CO OO. furs OO @MO-sOODMo- 
he DO ICON ST TF TT TUNAAUAUINWO 
oo St ee eed eee eek eek ee eee eee eel seh eel el eh eh mee ee eh ee see peat pee see eh peel peel geal see seh eh seth see eh 


eee oe ne oe ee ee oem oe ew ee ee fel oe lolololololololololo) 
GOOOOCOOCOOCOOOOOSOSOOCOSOOSOSOOOSOSOOOSSSOOSSSOOoSoO 


NOwj KK VO’ Or K— VOR VOY DMOOr ne  VeWe-WouDoowowoor. 
KOCK Om Ou OF OO Oi OO se Ou KK OF OOK Or OO OO OOO 


DO DONNA D0 LPIGLN DO DMO OOO 9 ZL OUCUP- MICUN OCUCUN ee CC 
COMVLVOWUNMLOOTNOW Snare se TNE NVOMOOUW 


is 
- 
oO 


OOBE 
00c3 
00CcB 
00D8 
00E6 


03 
67 
8F 
03 
67 
68 
04 
5 

05 
67 
68 
BC 


04 


FFFFFFFC 
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SRIERFUNLS SS 
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ss Returns from SHOW and LIST 12~se0- 138% $3:23:66 ore Bliss-32 V4.0-7 
4-Sep-1984 :48:16 NCP. SRCINCPSHOLIS.B32; 
ES 


S$ he ms SHOW COMPAT Convert V2.0 NICE SHOW response’ 


OUT SHOW_COMPAT (PARM: REF BBLOCK) = 


This routine is called before each parameter is_for ed 


matt 
to convert the parameter into the appropriate V3.0 NICE 
parameter, if we are currently connected to a V2.0 NML. 
Inputs: 


parm = Address of parameter (starting with parameter ID word) 


: Routine = True if mapped into v3 perposters False if does not 
} apply to V3 and should be ignored. 


EXTERNAL 
NCPSGL_EXELCB: REF BBLOCK; ! Address of current LCB 


IF CHSNEQ(3, NCPSGL_EXELCB CLCBSB_NMLVERS], ! If not NML V2.0, 
3, UPLIT BYTE(2,0,0), 0) 


RETURN TRUE; ! then leave the message stand as is 

IF .NCPSGL_OPTION CNMASV_OPT_ENT] NEQ NMASC_ENT_LIN ! If not SHOW LINE response, 
RETURN TRUE; ! then leave it stand as is 

If .PARM CNMAS$V_CNT_COUJ ! If its a counter, 
RETURN TRUE; ! then format it as is 

SeLeC TONEY -NCPSGL_ENTITY ! Based on original entity requested, 


SET 

CNMASC ENT.CIRI: Map V2 Lines => V3 circuits 

UPLIT WwW 
M 


NMASC— 


NMASC 


0 
P 
P 
P 
P 
Pp 
P 
P 
P 
P 


NMASC 
C,WORB, 


AOMOOOOOOOoOoD 
=| KMOMOOMOOOOOOSo 
Tee bat me me et Pe ae re 


INCRU I FROM 0 BY 2 
BEGIN 


For each entry in conversion table, 


POPPE PE NPP No nononofnono no nonrononrnrrnrn 


00 00 02 
0320 0320 0190 0190 O06E O006E 0064 0064 0000 0000 


85 


9 
9 


| | 
NCPSHOLIS Process Returns from SHOW and LIST hese -1984 23:53: AX-11 Bliss-32 V4.0-742 
¥662000 V2_SHOW_COMPAT Convert V2.0 NICE SHOW response 12286571382 $3 :2Bi%6 NCP.SRCINGPSHOLI$.832¢1 
: 1645 1634 4 IF .LINE_TO_CIRCUIT C.1] EQL -1 ! If not found in table, 

: lose 1635 4 THEN 

5 1% 19 § ? RETURN FALSE; ! Then ignore it 

3 1805 1638 4 IF .PARM CNMASV_PTY_TYP] ! If found in table, 

: 1650 1639 4 EQL .LINE_TO_CIRCUIT C.13 

; 1651 1640 4 

3; 16 ¢ 1641 BEGIN 

> 165 14¢ PARM CNMASV_PTY_TYP] = .LINE_TO_CIRCUIT C.1+1]; ! Convert ID 
3; 1654 164 RETURN TRUE; ' Format the converted parameter 

; 1655 1644 & END; 

3 1906 1645 END; 

: 16 1os8 END; 

: 1658 164 

3; 1659 1648 CNMASC_ENT_LINI: ! Map V2 Lines => V3 Lines 

; 1660 1649 IN 

3; 1661 1650 BIND LINE_TO_LINE = UPLIT WORD( 

3 1066 1651 NMAST_PCLI_STA, NMASC_PCLI_STA, 

: 166 1036 NMASC_PCLI_SER, NMASC_PCLI_SER, 

3 1664 165 SC_PCLI_LCT, NMASC_PCLI_LCT, 

3; 1665 1654 NMASC_PCLI_CON, NMASC_PCLI_CON, 

F 1966 1655 NMASC_PCLI_DUP, NMASC_PCLI_DUP, 

3: 166 1656 -PCLI_LLTY, NMASC_PCLI_PRO, 

3: 1668 1657 NMASC_PCLI_STI, NMASC_PCLI_STI, 

3; 1669 1658 NMASC_PCLI_NTi, NMASC_PCLI_RTT, 

3; 1670 1659 2700, NMA$ST_PCLI_BFN, 

3 107) 1969 “1, -1): VECTOR C,WORD,SIGNED); 

: 1838 1276 INCRU I FROM O BY 2 ' For each entry in conversion table, 
3: 1674 166 dO 

3 1675 1664 4 BEGIN 

3 1976 199? ? IF .LINE_TO_LINE C.1] EQL -1 ! If not found in table, 

: 1678 1667 4 RETURN FALSE; ! Then ignore it 

3; 1679 1668 4 

; 1680 1669 4 IF .PARM CNMA$SV_PTY_TYP] ! If found in table, 

: 1681 1670 4 EQL »LINE_TO_LIRE C.1] 

3 1086 1671 4 

: 168 167¢ 5 BEGIN 

; rons 167 : PARM CNMASV_PTY_TYP] = .LINE_TO_LINE C.1+1]; ! Convert ID 
3; 1685 1674 RETURN TRUE; ! Format the converted parameter 

: 1056 1675 4 END; 

3; 168 1678 END; 

: 1on8 167 END; 

: 1 1678 TES; 

3; 1690 1679 

3; 1691 1680 RETURN FALSE; ! If we get here, ignore parameter 
: 1636 1681 

; 169 1682 END; 


-PSECT SPLITS,NCWRT,NOEXE,2 
BYTE 0,0 
“WORD 0, 0, 100, 100, 110, 110, 400, 400, 800, - 


P.ADY: 
P.ADZ: 


: 


2 

NCPSHOLIS Process Returns from SHOW and LIST 18-5 -1984 253: AxX-11 Bliss-32 V4.0-74 P 7) 
¥O02000 V2. SHOW. COMPAT Convert V2.0 NICE SHOW response 12-800-1 382 $3:23;46 NCP.SRC NCPSHOLIS.832; age 135 | 
FFFF FFFF 0474 0474 0458 0458 0384 0384 032A 032A 00948 2 810 810, 900, 900, 1112, 1112, - ; | 
0457 0457 6 0456 O06E O06E 0064 0064 00 0 095C P.AEA: .WORD 0, 0, 100,100, 110, 110, 1110, 1110, = F | 
FFFF FFFF re ABC oe 0461 0460 0460 9008 9008 $0375 1417, 1111, 142, 443" 1130! 4120, 1121, -: | 
1121. 2700, 1105. <1, <1 : | 

CUIT=  ——P.ADZ ; 


P.AEA 
-EXTRN NCPSGL_EXELCB 
-PSECT SCODES,NOWRT,2 


001C 00000 v2_SHOW_COMPAT: 
. WORD Save R2,R3,R4 : 1578) 


54 00000000' 00 9 90002 MOVAB P.ADY, R4 : 
$0 000000006 00 00 00009 MOVE, NCPSGL EXELCB. RO > 1601 
64 06 AO 03 29 sobs CMPCS #3, 6(RO), P.ADY : 
01 000000006 00 03 99 &D 9001 CMP2V #0, #3, NCPSGL_OPTION, #1 > 1606 
12 00020 BNEQ : 
52 04 AC 00 00022 MOVL §PARM, R2 : 1610 
62 85 00026 TSTW = (R2) : 
4F 19 00028 BLSS  66$ ; 
50 000000006 90 0 002A MOVL —-NCPSGL_ENTITY, RO > 1614 
03 50 D1 00031 CMPL RO, # > 1617 
20 12 00034 BNEG 38 : 
0 4 00036 CLRL od > 1631 
51 04 A440 32 00038 18: CVTWL LINE_TO_CIRCUITCIJ, R1 > 1634 
FFFF BF 51 81 0003D CMPW ORT, #1 : 
3E 13 00042 BEQL 8S ; 
51 62 OF 00 ED 00044 CMPZ2V #0, #15, (R2), RI : 1639 
06 12 00049 BNEQ : 
06 A640 3F 00048 PUSHAW LINE_TO_CIRCUIT#201] : 1642 
23 11 0004F BRB $ ; 
50 02 CO 00051 2: ADDL2 #2, 1 > 1631 
Ee 11 00054 BRB $ : 
01 0 D1 00056 3s: CMPL RO, #1 ; 1648 | 
27 12 00059 BNEG = 8$ ; 
50 ps 00058 CLRL > 1662. 
51 2¢ A440 32 0005D 48: CVTWL LINE_TO_LINELIJ, R1 : 1665 
FFFF BF 51 81 00062 CMPW ORT, #1 : 
19 13 0006 BEQL =sB : 
51 62 OF 00 ED 00069 CMPZV #0, #15, (R2), RI : 1670 | 
oD je O06 BNEO ; | 
2E A440 3F 000 PUSHAW LINE _TO_LINE+2C1) > 1673. 
62 OF 00 9& FO 00074 5$: INSV = @(SPY+, #0, #15, (R2) ; | 
50 01 D0 00079 é$: MOVL #1, RO ; 1674 | 
04 0007C RET ; | 
50 02 £0 0007D 7$: ADDL2 #2, I : 1662 | 
DB 11 00080 BRB 4 ; 
50 D4 00082 8$: CLRL —RO : 1682 
04 00084 RET ; | 


; Routine Size: 133 bytes, Routine Base: S$CODE$ + 090A 
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1695 ZSBTTL ‘NCPSFORMATPARM Return Text Format for Parameter’ 


Wwe 


GLOBAL ROUTINE NCPSFORMATPARM (ENTY, PDID, NAMQ, DATAQ, BDSC, RLEN, RPTR) 
:NOVALUE = 


SES 


lee 


i FUNCTIONAL DESCRIPTION: 


This routine parses a parameter in binary format and returns 
the text of a description of the parameter in a buffer. 


The parameters are the entity Mir of the parameter, and a pointer 
to its binary representation. aos are passed indicating whether 
he parameter value. 


VEWN—OOONO 


wOoOoooo 


to include the parameter name and 


; 1 1 

; 3 16 1 

3 3 16 1 

3 3 16 1 

3 1 16 1 

3 3 16 1 

: 1701 16 7} 

s i7 ¢ 16 . 

; 170 16 1} 

; 1706 16 1! 

; 1705 16 ,! 

3 1708 16 1! 

3; 7 16 3 

; 1708 1908 ,? f; 

3; 1709 1697 1! The returns are the Length of the text data returned in the buffer, 

; 1710 1698 1! and a pointer beyond the parameter as it was parsed. 
3 1711 i 244 1! 
; 712 1700 1! 
3 171 1701 1 ! FORMAL PARAMETERS: 
3: 1714 1706 1! 
3; 1715 1703 1! ENTY Entity number corresponding to the parameter 
3; 1716 1706 1! If negative, then hee yh entity 
3 i717 1705 1! PDID Address of the parameter ID word 
3; 1718 1706 1! NAMQ True for include name in text output 
; 1719 ‘rer 3 § DATAQ True for include value in text output : 
: 1720 1708 1! Also pass over data and return pointer beyond it 
3 1721 1709 1! BDSC Address of buffer descriptor for text 
; \7e¢ 1710 1! RLEN Address for returned Length of text 

: 7s? fap ; RPTR Address for returned address beyond parameter 

: 1725 1713 1 ! COMPLETION CODES: | 
3: 1726 1714 1! j 
: 1727 1) 3% Error is signaled by a called routine if it is not safe to 

: 1768 at : continue parsing parameters. 
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ssi 


$ 


zv 
ao 
ne 
ow 
mw 


WALA POPORUIPIPUPUIPITUN ——— _ “00 


BEGIN 


“ 


' General status value 

! Address of table to search 

! Type code from table lookup 

! Keyword List from table Lookup 

: Parameter name from table lookup 
' Parameter id code 
! Data type code 

! Pointer to parameter data 


BBLOCK CLONG), 


—CWOONOULS WN OOM 
cc 
“ 
our 
. 


! 
NCPSFAOSET (); 

PTR = .PDID; 
ID = .(.PTRS <0, 16, O>; 
PTR = .PTR + 2; 


Setup fao parameters 


wr 


Set pointer to parameter 
The parameter id 
And advance over it 


Sous 


There is no real choice about getting the name or data for 
counters. We never print counters in a List with headers so its 
not necessary. You always get the name and the data for a counter. 


a_i i 


QVM UMVIVMIVIV ES BEBE ELE EE 
WN 9 DONO ULWN “OVO ONOUFS WO” 


EWN" OOODNOUS wc 00 


BANANAMAN ES BS BE EEE EES IW 
POPGRINIPIARIPININIPIPININIPIPI PINON PDIP PIPPI PI PIAI PPI PIPPI PIP PIRIPUPI PU NINININININININN) 
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. 
. 
. 
e 
. 
. 
. 
e 
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. 
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a 
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. 
- 
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oO 
o 
° 
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. 
oO 
e 
. 
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7 
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. 
oe 
7 
° 
o 
a 
. 
oe 
7 
a 
. 
° 
. 
o 
o 
e 
7 
oe 
. 
o 
7 
e 
- 
o 
7 
ao 
. 
o 
. 
e 
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o 
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- 
eo 
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e 


Spi ppp i i te de te te de dete te dee be eb ie ee ee ee ee 


eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


2 
§ 
§ IF .ID CNMASV_CNT_COUJ ! If its a counter 
THEN 
4 
4 
4 
4 
4 
4 
4 
4 


Be Be Be Be Oe Se Se Be Se Se Se Ge Ge Se Se Se Oe Se Ge Be Fe Se Se Se Be Se Se ee Se Ge Fe Se Se Se Ge FH SF Se Ge Ge Be Ge FF Se Oe Ss Ge Se Oe Se Se Se Se Se Se tee 


. NCPSPARSECOUNTER (.1D, PTR) ! This routine does it all 
76 BEGIN 
fs . 
764 : For parameters, we select a table of data and then act based 
765 ! on the data type code 
766 : 
767 
768 5 TBL = ' Select the parameter table 
769 6 BEGIN ' Based on the entity passed 
770 7 SELECTONE .ENTY OF ! Entity code 
oe : SET | 
77 0 NMASC_ENT_NOD] : NCPSGA_PRM_NOD ; 
774 61 NMASCENT_CIRJ : NCPSGA_PRM_CIR ; 
775 6¢ NMASC_ENT-LIN] : NCPSGA_PRM-LIN ; 
776 6 NMASC_ENT_LOG] : NCPSGA_PRM_LOG ; 
777 64 NMASC_ENT_MOD) : 
778 65 BE 
779 66 SELECTONE .NCPSGL_MODTYP OF 
rat 68 "i | 
4 69 NCPSC_ENT_MODCNF] : NCPSGA_PRM_MODCNF; ! module cent tqureter 
78 770 3 NCPSC_ENT_MODCNS] : NCPSGA_PRM_MODCNS; ! module Console | 
784 771 Hh NCPSC_ENT_MODLOA] : NCPSGA_PRM_MODLOA; ! module Loader 
785 re $2 NCPS$C_ENT_MODLOO) : NCPSGA_PRM_MODLOO; ! module Lgoper 
786 77 NCPSC_ENT_MODACC) : NCPSGA_PRM_MODACC; ! module Xs “Access 
787 774 NCPSC_ENT_MODPRO] : NCPSGA_PRM_MODPRO; ! module X25-Protocol 


er 


a i be i ep i ee | 
BSZSPSIIISR 


sess 


23S 


i kk kk at ts tt ts 
oO 
uw 


S335 


2 
aa 


AX-11 Bliss-32 V 
NCP.SRC weesnots 


1S-seoctgee 33:58:26 
: is ACPRR-RODTRCE | 


» ASCIC (‘invalid component code’) ); 


os 
PAO 
ne 
ow 
zu 
= 

> 

wv 
Sc 


ext Format for Paramete 


nNSN 0600 


OOONAW 


nase. ENT AREJ 
-NMAST_SERT_OBJ 
mo om mes’: ~LNK 


: NCPSGA PRM_ARE ; 
: NEPSGAT PRM-LNK ; 


rer? ~SioP (NCPS _BADMSG, 1, 
ASCIC (‘invalid Component code") ) 


LEARAVSS 


SVVQLQQaQQ__NN 
WER RSL LLLP 


00000 
Wr—O0Oew 


2 eee 


Be Se Oe Be Be Oe Se Se SH Se Se Se BeBe Se Se Se Ge Ge BH Se SHS Se Se Se Fe Ge Se Sete BH Se Se Se Se Se Fe Se Se Sse Se Se Se Se Se Se Se Fe Se Sees Se Se Se Seas 


; 
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é 
2 
é 
é 
é 
é 
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é 
é 
é 
r 
é 
é 
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¢ 
{ 
¢ 
¢ 
‘ 
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< 
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3 


i] 
17 ' Search for the parameter to qet its type and 
a list of keywords if any and the text of its name 


oO 
oO 


STATUS = 
eater ‘atric 


.TBL 
ENMASV_PTY_TYP], 


ODCoo 
VUPwn— 


Not known? 


MITUIPRITOIPURD 2 
V—EWN —OODONAOULS WN oO 


iF NOT .STATUS 
THEN 
TYP = PBKSK_END 


Set for ‘we don't know’ 


a maaan AND .NAMQ 
ADDSTR ("!24<') 


Length field for the name 


IF_ .NAMQ 
THEN 


UNO 0@n 


If the user wants the name 
Of the parameter 


OunlWwn—-O0on 


BEGIN 
IF NOT .STATUS We don't know its name, so 
THEN Concoct a name based on its id 


Ww 


ADDSTR (‘Parameter #!UW'); 
ADDFAO (.1D CNMASV_PTY_TYPJ) 


BEGIN ! Use the params given name 
ADDSTR ("!AC"); 

ADDFAO (.TXT) 
END 


BFUSLSSSVSRRON LS Sanaenewwv—-oowus 


| 
| 
| 
If data wanted too, use a fixed 
| 
| 
IF .DATAQ AND .NAMQ ! If the name and the data | 


ADDSTR ("!> = ") ! Set the data off in some way 
! and close the fixed size field | 
| 


SSO euUnNeoe ed ed ed ed ad ad OVO OED 


DATAQ ! If the user wants the data too 


Nictetetetateteit st 2222 2 3S 


SOWOONOUS Who 0OO~n 


‘Co 
w 


TR) <0, 8, 0>; ! Obtain the data type code 
+ 1; ! And skip over it 


Be Se Oe Oe Oe Ss Se Bs Be Se Ge Se Se Se Fe Se Oe Os Se Se Fe Se Be Se FF Ge Gs Be Se Se Oe Se Os Oe Se FH Se Oe Se Se SE Se Ss Se Se Se Se Se Se Se Se Sees ee Se tes 
a a a et ek tk td ad kk a dd dt 8 a a ht a a 4 = = 3 3 2 2 9 a 


ee ee ee ee ee ee a ed ed ed od od od od od td od = dd 


BEEK FAA HTB OTT BB AAAI 


SOWONOUSWN—-OOO~N 


ARERR RRR Eee 


geese 


As you might guess, this routine does all the real work of parsing 
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| 
>: 1865 1851 4! arameter. It builds the text of the data and the fao List. 
3 } ; ¢ 2 ; ih's rout ine signals if it cannot interpret the param in any way. | 
P 4 | 
3 1 . 1854 4 
3 138 1855 4 NCPSPARSEPARM (.DTY, PTR, .TYP, .LST) 
; 1870 1 28 4 
: 1871 1 4 END 
5 1876 1858 END 
5 187 1 59 ° 
3; 1876 1860 
: 1832 1864 Now Mak h h LL 
5 ow Make the text to return to the caller 
; 1899 1 7 ! 
: 1839 p 186s $FAOL ' The magi k 
: ! The magic text maker 
: 1880 P 1866 . 
: 1881 P 1867 CTRSTR = oy ' control string 
; ise P 1868 OUTLEN = .RLEN ! Return the Length here 
; 188 P 1869 OUTBUF = BDSC. ' Put the text here 
> 1884 P 1870 PRMLST = FAOLST i Use this arg List 
3; 1885 1871 3 
3; 1886 1876 § 
: 1887 187 -RPTR = .PTR; ! Return the pointer past data 
: 1888 1874 
3; 1889 1875 RETURN 
3; 1890 1876 
: 1891 1877 1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
6— 6F 70 6D 6F 63 20 64 69 6C 61 76 6E 69 16 00984 P.AEB: .ASCII <22>\invalid component code\ 3 | 
65 64 6F 63 20 74 6E 65 00993 ; 
6— 6F 70 6D 6F 63 20 64 69 oC 61 76 6E 69 16 00998 P.AEC: .ASCII <22>\invalid component code\ $ 
65 64 6F 63 20 74 6€ 65 OO9AA 3 
3c 634—CiC322 4 04 00982 P.AED: .ASCII <4>\!24<\ : 
57 55 21 23 20 72 65 74 65 6D 61 § 61 50 4 00987 P.AEE: .ASCII <14>\Parameter #'UW\ 3 | 
4 41 $1 03 O09C6 P.AEF: .ASCII <3>\!AC\ 3 
20 3D 20 3€ 21 05 OO9CA P.AEG: ASCII <5>\i> = \ 3 
-EXTRN SYSSFAOL | 
-PSECT $CODES.NOWRT,2 
007C 00000 -ENTRY NCPSFORMATPARM, Save R2,R3,R4,R5,R6 : 1684. 
26 ae os 8 9—E 0000 MOVAB NCPSADDSTR, R6 5 | 
5 0000000' 0 9E i MOVAB NCPS$GQ_ CTROSC, RS : 
ee 00000000° 00 2 B19 | P.AEB, R4 3 
E 10 Ce 0001 SUBL2 #16, §P ; 
00000000v 0 00 4 1A CALLS #0, NCPSFAOSET 3 1732) 
0c Ar 08 AC p 1 MOVL PDID, PTR > 1736 | 
5 C 6 MOVZWL @PTR, ID 3 1735 | 
Oc AE C A ADDL2 #2, PTR > 1736) 
8 00 TSTW 1D > 1744 | 
OF bh BGEQ $ ; 
AE 9F 00032 PUSHAB PTR > 1746 | 


<z 


- 
PORIPIPIPIPIMIAIPIAINIPIPOPIPIPIPOIPIPIPIPIAIPINININININININININININPININININININININININININININININININININININIY RS 


Be Oe Pe Se Oe Be Be Oe Se Se ee SH Se Se Se Se Se Se See Se we Se ee Se Se Se Se Se Se ee SH Oe SOSH Se Se Se SH Se Se Se SE Se ee Se See Se Seaeee Ge Se Se esas 
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53 DD PUSHL ID ; : 
00000000v 00 ni Fe 09 CALLS ae NCPSPARSE COUNTER : : 
52 06 AC 09 0041 1$: MOVL NTY, R2 1757) ; 
9 12 00 43 BNEQ t 1760) : 
50 000000006 0 H 904 MOVAB NCPSGA_PRM_NOD, TBL : | : 
03 32 p} $3 2$: CPL Re. #3 : 1761) : 
50 000000006 09 H 005 MOVAB NCPSGA_PRM_CIR, TBL : | : 
01 > O005¢ 3$ LORD at : 1762 : § 
36 12 88 ai BNEQ RE. : | : $ 
50 000000006 99 9E 00065 MOVAB NCPSGA_PRM_LIN, TBL : : ¢ 
17 0006A BRB 14$ : 3 ¢ 
02 52 D1 0006C 4$: CMPL R2, #2 : 1763 2 
09 12 0006 BNEQ : 3 2 
50 000000006 00 96 00071 MOVAB NCPSGA_PRM_LOG, TBL ; :¢ 
9 11 90078 BRB 16$ : 3 
04 52 D1 OOO7A 5$: CMPL Re yA : 1764 3 ¢ 
56 12 0007D BNEQ 138 : | 3 
51 000000006 00 00 0007F MOVL § NCPSGL_MODTYP, R1 : 1766 2 2 
01 51 D1 00086 CMPL R1, #1 : 1769 $4 
09 12 00089 BNEQ : 3 
50 000000006 00 9 00088 MOVAB NCPSGA_PRM_MODCNF, TBL ; 2 ¢ 
71 11 00092 BRB $3 : 3 
05 51 D1 00094 6$: CMPL  =soR1, #5 : 1773 3 
09 12 00097 BNEQ : 3 
50 000000006 00 9€ 00099 MOVAB NCPSGA_PRM_MODACC, TBL : 3 
77 11 OO00A0 BRB 21$ : 3 
06 51 1 O00K2 7$: CMPL RI, #6 : 1774 3 
09 12 000A BNEQ 8$ : 32 
50 000000006 00 9E 000A7 MOVAB NCPSGA_PRM_MODPRO, TBL : 3 
69 11 OOOAE BRB 21$ : 3 
07 51 D1 90089 8$ CMPL RI, #7 + 1775 3 
13 13 0008 BEQL =: 108 : : 2 
08 51 Di 00085 CMPL = R1, #8 : 1776 rar) 
09 12 00088 BNEQ 9$ : 3 2 
50 000000006 00 9E OOOBA MOVAB NCPSGA_PRM_MODTRC, TBL ; 3 ¢ 
56 11 000C1 BRB 21$ : rar) 
09 51 D1 000C3 98: CMPL = RI, #9 : 1777 32 
09 12 0006 BNEQ 12$ : 32 
50 000000006 00 9£ 000C8 10$: | MOVAB NCPSGA_PRM_MODSER, TBL : 3 ¢ 
48 11 OOCE 11$: BRB 21$ : 3 4 
4 DD 00001 12$:  PUSHL R4 : 1779 
5 11 9005 BRB 20$ ; 
05 2 D1 00005 13s CMPL =-R2, #5 : 1783 
9 12 00008 BNEQ 15$ : 
50 000000006 00 9E OOODA MOVAB NCPSGA_PRM_ARE, TBL ; 
11 OO0E1 14$: BRB 21$ : 
FFFFFFFC  8F D1 SOES 15$: CMPL Re #4 > 1784 
09 12 OOOEA BNEQ 17$ ; 
50 000000006 00 9 E MOVAB NCPSGA_PRM_OBJ, TBL ; 
4 1 F 168: BRB 21$ ; 
FFFFFFF9 8F 3 D1 F5 17$: CMPL Re #-7 : 1785 
12 O00FC BNEQ 19§ ; 
50 000000006 00 9€ OOOFE MOVAB NCPSGA_PRM_LNK, TBL : 


Process 


VO4= 


000000006 


7E 53 
00000000Vv 


08 


7E 53 


00000000Vv 


00000000v 


000000006 
1¢ 


; Routine Size: 440 bytes, 


00 


66 


00 
29 
08 


6 
19 


00 


00 
BC 


Routine Base: 
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000000006 : 
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"4s 
38 

i 

10 AC 
oc ag 
5 

2—E = AG 

02 

oc as 

35 

33 AG 

02 

00 

"3 

5 

42 AG 
02 

6E 

01 

10 =AC 
oc 86AC 
55 

46 AG 
02 

10 AC 
OC BE 
OC AE 
Be AE 
C AE 
14 =A 
5 

Be 

00000000" 00 
14 AC 
18 AC 
55 

04 

OC AE 


EF 


OMNOOMM NSO NOS -MNOVOMMOOMMoOMIE NOMoO 
POD "SO OOWIlTO "9S - "DB "O00 "SO OWOOwMOWo 


OOOO QooQooooooooooooooooooooooQooooQoQoQoQooQoQoQoQoQoQoQoooooooo 
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tt i tt tb et a ss ts ts 3 a tk 8 et tt a 2 a ts ss te 


QNDSRWORE MO WOOP OROD UR — MO WUMVIOO DOW DUM Ooo 


D6 


SCODES + 098F 


228: 


23$: 


248: 
58s: 


27$: 


~ 
co 
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6a 
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P.AEC 
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TYP 
#0, #15, ID, -(SP) 
‘ , NCPSPTBSEARCH 
STATUS, 22$ 
#23, TYP 
DATAQ, 23$ 
NAMQ, 26$ 


P.AED 

#2, NCPSADDSTR 
NAMQ, 

STATUS, 24$ 

R5 


P.AEE 

#2, NCPSADDSTR 

#0, #15, ID, -(SP) 
25$ 

R5 


P.AEF 
#2, NCPSADDSTR 


#1, NCPSADDFAO 
DATAQ, eas 
NAMQ, 2 


P.AEG 
#2, NCPSADDSTR 
DATAQ, 28s 


D 

#4, NCPSPARSEPARM 
FAOLST 

BDSC 

R EN 

#4, SYSSFAOL 

PTR, @RPTR 
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; 1893 1878 1 ZSBTTL ‘NCPSPARSECOUNTER Parse a Counter’ ‘ 
3 : iy ! 7 : ROUTINE NCPSPARSECOUNTER (1D, CPTR) :NOVALUE = ! ‘ 

:1 % 1 ei 1 !+4 ; 

; iB 188¢ 1 | FUNCTIONAL DESCRIPTION: 

: 1 39 1 bs 1 / This routine parses a counter and produces the necessary fao : 

; 1209 ! 5 : } control string and List entries to format the counter into text. : 

; 1308 7 | FORMAL PARAMETERS: : 

:1 1889 1! ID Value of the ID code for the counter : 

: 1905 1890 1! CPTR Pointer to the counter data bloc ‘ 

i 1906 1891 1 | returned as a pointer beyond the block : 

; 1308 1898 : : IMPLICIT INPUTS: i 

ite ie ape 3 

; 1918 1897 1 i IMPLICIT OUTPUTS: : 2 

; 191 1898 1! $¢@ 

Uy nowe a. 

; 1916 1901 1! ROUTINE VALUE: 2 : 

: eat 4 1%) : COMPLETION CODES: ‘ $ 

; 4h iP: : ! Data inconsistancies are signalled as errors : § 

; 1381 1906 1; SIDE EFFECTS: i 8 

wo mio 3 

> 1925 1910 1 i= : 2) 

; 1358 1911 1 sé 

ie coe 3 

: 1989 1914 ; MAP 7 § 

: 1930 Hb a ID : BBLOCK [4] ! Id has fields in it : 2 

; 1932 1917 , : § 

3 193 1918 LOCAL : 

3 1934 1919 PTR ! Pointer to counter data : 

> 1935 1920 coulp. i Id of the counter ; 

3 1338 1361 COUVAL, ' Value of the counter e | 

3 19 19 4 BITMAP, ! Things that got counted 

3; 1938 196 COUTYP, ! Data type of counter (ignored) 

; 1939 1924 COULST, ! List of counted strings | 

3: 1940 1925 COUTXT 

ee : : 

; 1968 1928 

: Hb 3 , PTR = ..CPTR; ! Set the local pointer to the data 

; 1946 1931 COUID = .1D CNMASV_CNI_TYP); ' Counter id 

3 Hot 4 § IF .1D CNMASV_CNT_RAP) ! Look at the bit map bit | 

: 1949 1934 BEGIN ! We have a bitmap | 
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: $008 1398 as ! Already tak f : 3 
; ! Alrea aken care o ‘ 

: S009 199% ELSE : : 3 
; 2010 1995 BEGIN ‘ 

; 2011 1996 ADDSTR (°!14<!12UL!>"); ! The counter value here : 
; \ 199 ADDFAO (.COUVAL)  ¢! 
; 4 1998 END : ¢! 
: 2014 1999 : + ¢! 
; 2015 4 : ¢ 
; B18 001 IF + ¢' 
; 4 008 NCPSPTBSEARCH ! Look up the counter name, etc. :¢! 
; O19 00% BEGIN ; ¢ 
: $020 905 SELECTONE .NCPSGL_ENTITY OF ! The type of entity : $l 
; 20 ¢ $009 NMASC_ENT_NOD] : NCPSGA_PRM_NODCNTR; : ¢ 
; 20 2008 NMASC"ENT-LIN] : NCPSGA_PRM-LINCNTR; : ¢i 
: 2026 009 NMASCENT-CIR] : NCPSGA~PRM-~CIRCNTR: : §; 
: 2025 010 3 NMASC"ENT~MOD) : : gi 
3 2026 011 4 BE : 
; 2027 Org & SELECTONE .NCPSGL_MODTYP OF ° §; 
; 2028 013 4 SET : i 
; 9¢9 014 4 NCPS$C_ENT_MODPRO] : NCP$GA_PRM_MPRCNTR; : si 
; 2030 015 4 NCPS$C"ENT_MOUSERJ : NCP$GA~PRM_MSECNTR; : §; 
: 2031 016 4 NCPSC~ENT-MOD29S) : NCPSGA~PRM“MSECNTR: 2 2; 
; Oe 017 4 OTHERQISET : : 2) 
: 203 018 4 SIGNAL_STOP (NCP$_BADMSG, 1, 2 $i 
3 2034 019 4 ASTCIC ("invalid component code") ); : $i 
3 2035 020 4 : $i 
: 2036 021 END; e §; 
3 2037 0 é COTHERWISE] : : $i 
: 2038 0 SIGNAL_STOP (NCP$_BADMSG, 1, ° $i 
: 2039 2024 ASTIC ("invalid component code’) ); : $i 
; 2040 025 3 TES e ¢ 
3 2041 026 § END, ° $i 
; ote 027 COUID, * §; 
3 204 028 COUTYP, } Type code : ¢ 
3 2044 O¢8 COULST, ! List of bitmap items : $i 
3 2045 030 COUTXT ! Text of name of counter : §¢; 
> 2046 031 ) : ¢ 
3 2067 ORs THEN i ¢ 
; 2048 03 BEGIN , $i 
; 2049 034 ADDSTR ("!AC'); ! We found it return the name - ¢ 
5 930 9 5 ADDFAO (.COUTXT) : 

; 1 $ END * ¢ 
$ O3¢ 0 ELSE : 

3 205 038 BEGIN ‘ 

3 2054 039 ADDSTR (‘Counter #!UW") ! Generic name for we don't know i ¢€ 
; 2055 040 ADDFAO (.COUID); : a 
; 2056 041 COULST = 0 ! We have no List either 3 

; at neg END : 

; 2058 04 ; ‘ 

: 2059 Ree : . : 

3 5 IF .BITMAP NEQ 0 ! Items in the bitmap : 

; 2061 04g THEN 3 ¢ 
; 2062 04 BEGIN : | i 3 
; 206 48 ADDSTR (*, including:*); ! A title for them : 


papeecnannneaspaninesiaien - 4 
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: 3066 gf INCRU NBIT FROM 0 TO 15 ! Scan all the bits 2 gi 
; 1 4 BEGIN 3 ¢ 
; oe? 6 IF .BITMAP <.NBIT, 1, 0> ! If its here ig) 
; b2 4 THEN ; 
; 054 BEGIN . § 
: oN O36 a eee EQL 0 ! Is there a List of bits? :¢ 
; Ore 5 ; 6 BEGIN 1 No use some standard title : ¢ 
; 207 B28 6 ADDSTR we Qualifier #!UB"); * ¢ 
; ore 2 6 ADDFAO (.NBIT) ! And report the bit number : $i 
3 Of , § ELSE 3 ¢ 
; 207 O06 6 BEGIN ! Report the qualifier string + ¢ 
; 2078 063 6 ADDSTR (°!/!16* !AC‘);  ¢ 
; 2079 064 6 ADDFAO (.COULST); 5 
; 2080 065 6 END 2 2 
; 2081 066 4 END; s¢ 
; 208 067 4 : 2 
3 208 068 4 IF .COULST NEQ 0 3 ¢ 
3 2084 069 4 THEN 2 2 
2085 070 § BEGIN ig 
3; 2086 071 5 COULST = ! Advance to the next qualifier string : ¢ 
3 2087 Ore 5 (,COULST) <0, 8, 0> + .COULST + 1; : $i 

+ 2088 073 5 IF .(.COULST) <0, 8, 0> EQ. 0 ; 
3; 2089 074 5 THEN ! No string left, report rest as bits ; si 
3; 2090 075 ‘5 COULST = 0; : 2 
; 2091 076 4 ND; 2 § 
: 209 O77 4 END : é 
3 209 078 3 END : 2 
3 2094 079 ; r+ 
3 2095 080 : é 
; 2096 081 -CPTR = .PTR; ! Return the pointer beyond data : 3 
; 2098 5088 g RETURN : 
i 2099 2084 i 
; 2100 2085 7 END; i § 
-PSECT $PLITS,NOWRT ,NOEXE 2 3 ¢ 
72 65 73 65 72 16 00900 P.AEH: .ASCII <22>\reserved counter width\ ; 3¢ 

4 $9 77 20 22 63 OO9DF : 3 

0 3c ; : YY } 8494 P.AEI: .ASCII <18>\!14< >254!>\ : ; 
20 3C $4 31 31 18 ODA P.AEJ: ASCII <18>\!14< >65534!>\ 3 ¢ 

20 3c 3 : 1} OND P.AEK: ASCII <18>\!14< >4294967294!>\ : ; 

21 3c 34 31 (21 ; oh 5 P.AEL: .ASCII <11>\!14<!12UL!>\ 3 3 

of 7 6 $F o ig n C P.AEM: .ASCII <22>\invalid component code\ : : 

of 4 ; of i an P.AEN: .ASCII <22>\invalid component code\ ; ; 

43 41 } 6 OAS P.AEO: ASCII <3>\!AC\ ; 3 

74 6€ 75 OF 4 C ASE P.AEP: .ASCII <12>\Counter #!UW\ : : 


i] 
2 | 
VanSep-198e f2:08:16 ENC LSREINCPSHOLIS. 63074 Page 18) 

oo BEA RH REG 8 FO Bg Ran HL SBM tie oun : 
1 21 OF f 8A ABE P.AES: ASCII <10>\!/!16® !AC\ : 
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43 41 21 20 2A 36 


-PSECT S$CODES,NOWRT,2 


Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 : 1879 
B 999000 6 00 9 990 MOVAB LIBSSTOP, R1 : 
A G 8F 00 0000 MOVL A#NCP$ BADMSG, R10 ; 
9 990000 V 9E 9019 MOVAB NCPSADDFAO, RO : 
38 0000000v 9—E 0001 MOVAB NCPSADDSTR, RB : 
57 00000000' oF OO1g MOVAB NCP$GQ_CTROSC, R7 : 
56 00000000" 00 9E 000 MOV P. AEH, R6 : 
3 0c C 00 C SUBL2 #i2 ; 
5 08 BC DO 0002F HOVL acPfR, PTR : 1929 
55 04 Ac 0c 00 EF 00033 EXTZv. #0, #12, ID, COUID + 1931 
05 0S Ac 04 Fi 00039 BBC #4, D4 + 1932 
54 3 3 0003E MOVZWL (PTR)+, BITMAP + 1935 
02 11 00041 BRB $ + 1936 
54 04 00043 18: CLRL BITMAP + 1939 
50 05 ac 02 05 EF 00045 2$: EXTZV #5, #2, 1D+1, RO + 1942 
0B 12 00048 BNEQ © 3$ + 1945 
56 DD 00040 PUSHL R6 + 1947 
01 DD 0004F PUSHL #1 : 
5A DD 00051 PUSHL R10 ; 
6B 03 FB 00053 CALLS #3, LIBS$STOP ; 
B 11 00056 BRB : 1946 
01 50 01 00058 3s: CMPL = RO, #1 : 1950 
18 12 00058 BNEQ 865 : 
52 63 9A 90050 MOVZBL (PTR), COUVAL ; 195 
FF OF 2 91 00060 CMPB - COUVAL, #-1 : 195 
0B 12 00064 BNEQ ; 
52 01 CE 00066 MNEGL #1, COUVAL : 1956 
57 DD 00069 PUSHL 7 + 1957 
17 Ab OF 00068 PUSHAB  P.AEI ; 
68 9¢ FB O06E CALLS #2, NCPSADDSTR ; 
D6 00071 4$: INCL PTR : 1960 
38 11 0073 BRB 9$ ; 
02 50 01 00075 Ss: CMPL = RO, #2 + 1963 
1A \2 O78 BNEG ; 
52 63 3C O007A MOVZWL (PTR), COUVAL + 1965 
FFFF BF 52 Bi 970 CMPW == COUVAL, #-1 : 1966 
0B 12 00082 FQ Sss«é6S ; 
52 o4 CE 00084 MNEGL #1, COUVAL : 1969 
7 0D 7 PUSHL 7 : 1970 
2A «AG OOF 9 PUSHAB P.AEJ : 
68 : F C CALL a3. NCPSADDSTR : 
‘ 0 F 6$: ADDL2 #2. PTR + 1973 
2 BRB 9% 3 
03 5 D1 94 7%: CMPL = RO, #3 : 1976 
1 ‘ 97 BNEG 9$ ; 
52 $3 D 99 MOVL (PTR), COUVAL : 1978 
FFFFFFFFE © BF 2 pi 0009¢ CMPL  COUVAL, #1 : 1979 | 
| 
| 
| 
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: 21 : 1 ZSBTTL_ "NCPSPARSEPARM Parse a Parameter sf 
; ; ; ROUTINE NCPSPARSEPARM (DTY, PTR, TYP, LST) :NOVALUE = ' | : 5 
: 2105 5 1 144 | i ¢ 
; 1% O31 : } FUNCTIONAL DESCRIPTION: | ; ‘ 
: 2108 35 ss This routine parses a parameter given its data type code and + ¢ 
: 2109 093 1! puts text in the control string and entries in the fao List + ¢ 
: 110 09% ! to make the text for the data portion of the parameter. i 
3 1g 04 7: Parameters are decoded in one of two ways. By the format implicit 2 ¢ 
3; 211 94 +: in their ID code. This type is passed as TYP and comes from a PTB. g 
3 2116 1! The other way is by explicit coding in the DTY code. Even we . § 
; 2115 099 1! do not know the format in the implicit case, we know the length of the s¢ 
3: 2116 100 1! data so we can report the data in hexadecimal and skip the * ¢ 
3 2117 101 1! data. If the format is not consistant in some way, we signal an e¢ 
; 138 196 : error with a detail of the reason for the inconsistancy. ‘ ‘ 
3 139 1046 1! This routine is fully recursive because multiple fields contain .¢ 
: 2121 105 1! several data type codes followed by parameter data. Runaway *§ 
3 1$¢ 106 1! recursion is prevented, because we reject multiple fields inside e 4 
; 21 107 1! of multiple fields. e 4 
: 2124 108 1! | 
3 2125 $193 1 ! FORMAL PARAMETERS: s 4 
3: 2126 110 1! s 4 
3: 2127 2111 1! DTY Value of the data type field 4 
: 2128 s1i§ 1! PTR Address of the pointer to the data a: 
$ $63 113 1! TYP Value of the type code from the PTB es 
; $130 sig ! LST Address of the keyword list for keyword parameters | s 
3: 213 sie 1 ! IMPLICIT INPUTS: + ¢ 
3; 213 2117 1! § 
3; 2134 2118 1! NCPSA_COLTBL To decide about width of integers 2 ¢ 
3; 2135 2119 1: NCP$B_COLHEAD ¢ 
3 $1 sist 7: s 4 
3: 2137 121 1 ! IMPLICIT OUTPUTS: s 4 
: 2138 \s¢ 1! 24 
3 2139 123 1! FAOLST List of fao entries e 4 
: 2140 124 1! CTRBUF Control string buffer 2 ¢ 
3: 2141 2125 1! 2 4 
; rs 126 1 ! ROUTINE VALUE: e 4 
7 214 127 1 ! COMPLETION CODES: 2 4 
3 21446 1208 «61! e 4 
3: 2145 leo 1? NONE e 4 
3 2146 1530 1! 24 
3 2147 131 1 ! SIDE EFFECTS: 2 
: 2148 a s4 
: 2149 1 ye NONE | - | 
; 2150 $1 4 1! e 4 
: 2151 135 1 !-- e 4 

:{ 

2 | 

e | 

a4 
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153 1 § 
BEGIN 
MAP 
DTY : BBLOCK CLONG) ! Data type 
6 LOCAL 
6 PSTRT ' Acdress of start of parameter data 
é MULCTR, i Multiple field counter 
6 LEN, ' Length of data 
NDTY : BBLOCK CLONG], ! New data type code, for recursion 
TXT ' Acdress of text o me 
SOURTYP, i Source type code for events 
ECLS ! Event class code 


| 
| 
| 
| 
| 
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H ££ 
: ef 
° | 
; 4 
: 4 
: | 
: e{ 
Py e 4 
: - 4 
H | 
; e 4 
: e { 
Ps e 4 
; - 4 
3 e 4 
; - 4 
: 216 - 4 
: 217 . 4 
3 el? : : 4 
: 217 ! The NICE return message is self descriptive. + 4 
3; 217 ! The data returned is decribed in the DIY field. e 4 
; 7 ’ If the parameter is coded, then NCPSHOLIS must know a4 
$ 7 : about the specific parameter type cause they usually 24 
:¢ q } require special formatting, such as insertion of ‘:'s or 2 4 
Py . = s. e 4 
3 7 ‘ If the parameter is not coded, then the format of the data is e 4 
s 7 ‘ probably explicit in the data czve code, expcept for a few | 
: 218 e: exceptions such as HEX and NIADR which although are not coded a 4 
3 ¢: § require some special formatting treatment. ‘4 
° . o 4 
; Hi 66 2 2 4 
3 2184 67 IF NOT .DTY CNMASV_PTY_COD] 24 
3 § 85 68 THEN | 
3; 2186 69 BEGIN e 4 
3; 2187 70 2 4 
: 2188 71 3 IF .TYP EQL PBKSK_HEX ! Not coded and is type HEX 2 4 
: § 89 Ze 3 THEN - 4 
; 2190 173 4 BEGIN ! data type is HEX and must be formatted a 4 
5 91 174 4 LEN = .(..PTR) <0, 8, O>; a | 
3 4 175 4 -PTR = ..PTR + 1; a 
: 219 176 4 3 4 
3 2194 177 4 INCRU IDX FROM 0 TO .LEN -1 a | 
: 2195 178 4 DO 2 | 
3 $138 179 : BEGIN = a 
3; 2197 180 ADDSTR ("!XB"); ! They are always in hex and not reversed 3 
3: 2198 13) 5 ADDFAO (.(..PTR + .IDX) <0, 8, 0>); e | 
3; 2199 1 ; 4 END; in| 
: 2200 183 4 ; | 
: 2201 184 4 .PTR = ..PTR + .LEN; ! Skip the parameter data 2 | 
; $0¢ 185 4 RETURN e | 
; 220 186 END; ' Not coded and type HEX 3 
3: 2204 3 e | 
: 2205 188 : Saee a | 
: 2206 4 ! Type NIADR is a 12 digit hex number formatted as 6 hyphen seperated | 3 
$ 20 13 pairs, nn=-nn-nn=-nn-nn=nn | a 
3; 2209 192 IF .TYP EQL PBKSK_NIADR ! Not coded and is type NIADR | a 
| 
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ve 
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3 
urns from SHOW and LIST 1-5 Sep-1984 75 AX-11 Bliss- 
RM Parse a Parameter 14-Sep -} 38% 3; 23; 78 a NCP. SRCINCPS 
8 ! is NIADR f 
CEN (PIR) <0, 8. &: data type is NIADR and must be formatted 


ADDSTR : ;}* ! They are always in hex 
ADDFAO (.¢..PTR) <0, 8, 0>); 


mm te FROM 1 TO .LEN =-1 DO 
‘=' ! They are always in hex 


ADDST i, 
ADDSTR C188) i They are always in hex 
ADDF AO ( : (.-PTR + .1DX) <0, 8, 0>) 


-PTR = ..PTR + .LEN; ! Skip the parameter data 
RETURN 
END; ! Not coded and type NIADR 


a a a a a a as oO A OM OA A OM EM Om Om Om Om OA EM OM OM OM OM OM OM OM Om OM EA Bm om 2 OM OM EA EM OM OM OM OM OM 
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NCPSHOLIS Process Returns from SHOW and LIST 18-2 1984 23:53: AX-11 Bliss-32 V4.0-74 Page 75) 
¥O42000 NCPSPARSEPARM Parse a Parameter 12-808=1 8c $3:23:48 ENCP.SRC NCPSHOLIS.B32; . (19) | 
H 9 11 ; IF .DTY CNMASV_PTY_ASCJ ! Is the coding ascii image? | ; 
: 1 THEN ‘ 
> 2231 13 4 BEGIN ; 
; § 14 & ADDSTR ("!AC"); : or is easy ‘ 
; 15 4 ADDFAO (..PTR); ! And skip the data * § 
; ¢ 18 2 sone tate ! Rewrite count minus the exec bit | ‘ ‘ 
; is 4 CHSRCHAR (..PTR) AND 2X'7F', : ‘ 
° 1 ca se ° 
3 0 4 ); : 
; 9 1 4 -PTR = ..PTR + 1 + .(..PTR) <0, 8, O>; 3: é 
; 2240 ¢ 4 RETURN ! We are done very quickly s ¢ 
; 4) 4 END e § 
: 224 4 3 3 4 
> 226 5 4 BEGIN ! Not ascii 7 ¢ 
>; 2244 6 4 LEN = .DTY CNMASV_PTY_NLE]); ! Obtain the Length of binary data + ¢ 
: 2245 , @ IF .LEN EQL 0 ! Any Length? | 
3 2246 8 4 THEN 3 4 
3: 2247 $3 5 BEGIN ! Its an image field 2 ¢ 
; 2248 230 5 LEN = .(..PTR) <0, 8, O>; a | 
; 2249 231 5 -PTR = ..PTR + 1 i 
; 29 235 END; a 
3 $26 234 & IF .LEN LEQ 4 ! If the length is less than longword 2 ¢ 
; 225 235 4 THEN ; ; 3 4 
: 2254 2 5 BEGIN ! Obtain the numeric format code | ¢ 
3; 2255 § 7 5 SELECTONE .DTY CNMASV_PTY_NTY] OF 2 
: 2256 8 5 SET 3 4 
3 44 239 «5 34 
; 2258 sey 5 (0) : ! Unsigned decimal 2 ¢ 
: 2259 41 6 BEGIN 
; 2260 go4e 6 IF .NCP$B_COLHEAD AND ! Header printed ard 
; $6) $se7 ° -NCPSA_COLTBL NEQ 0 ' We are writting column output | 
3 $565 $ste 6 ADDSTR ("!5u") ! Column format, right justify 
3: 2264 2246 6 ELS | 
: 2265 see 6 ADDSTR (*!uU") 
: 2266 48 5 : 
3 2267 2469 5 [1] : ADDSTR ('!S"); ! Signed decimal | 
; 2268 $520 5 +§3 : ADDSTR ('!x'); ' Hex 
; 69 51 5 J : ADDSTR (°!0'); ' Octal 
> 2270 33g 5 
3 2271 53 (5 TES 
: % See 4 END; 
: 2e7 55 4 . ; 
: 2276 256 4 SELECTONE .LEN OF ! Do the appropriate thing for length 
3 75 57 4 SET 
: 6 58 4 
; Las 23 4 (0) ! If length is zero, NML screwed up 
: $79 61 SIGNAL_STOP (NCP$_BADMSG, 1, 
: 2280 ¢ ASTIC ("Length of parameter is zero’) ) | 
BE tf 3 
; Hf 65 4 (1) : ! One is a byte? right? 
BB BBG ; 
3 85 6 ADDSTR (°B"); 
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NCPSHOLIS Process Returns from SHOW and LIST 15-Sep 6 AX-11 Bliss-32 V4.0-742 Pa 76. 

¥04 2000 NCPSPARSEPARM Parse a Parameter 14-Sep 1382 $3; 28: #8 NCP.SRCIN SHOLIS -B32;1 a9) 

4 68 5 ADDFAO (...PTR) $ 
: et : ! 
3 ni 4 (2) ' Two for a word, buckle my shoe | : 
: 7 ADDSTR Cw : 
; 7% ADDFAO ( o" bir) ; 
: Bf 3 ea! 
3 n 4 (3) : ! Three for a long, wait a minute | ; 
: 79 ; ADDSTR ('L ; 
: 9298 $i ; ADDFAO (. t rr) <0, 24, 0>) ' Sure, just use 24 bits : 
° 5 | oO 
; 4 ; 
; 2301 HH 4 (4] : ' Four for a long, shut the door | ; 
; ¢ 8 5 ( i we lost the rhyming somewhere | ; 
3 85 é ADDSTR te 3 
; 86 ADDFAO ( + PER) ; 
$306 ae ; | 
: 2307 89 4 (5 TO 32) : ! For reasonable Length binary images | : 
; 2308 90 5 BEGIN 3 
i 2309 31 3 INCRU IDX FROM 1 TO LEN | 3 
; 311 93 6 BEGIN : 
; \¢ 294 6 ADDSTR ("!XB'); ! They are alueys in hex : 
3; 231 95 6 ADDFAO (.(¢. .PTR + .LEN - . 10K) <0, 8, 0>) 3 
: 5314 % 6 END | : 
: 15 97 5 END : 
aie 3 ; Peat 
; 316 $500 4 COTHERWISEJ : ' Now lets be reasonable, ; 
: 2319 Sao) 5 i Binary data Longer than 32 is dumb ; 
; $320 308 5 SIGNAL. STOP (NCP$_BADMSG, 1, : 
; 2321 $35 5 ASCIC (‘numeric parameter too long’) ) | F 
$ $56 304 4 3 | $ 
$352 A é TES: | 
> 2325 307 4 4 ; 
3 $356 308 4 .PTR = ..PTR + .LEN; ' Skip the parameter data | : 
: 2338 3310 ? ee ' We are done | 3 
: 358 311 2 END; ' Not a coded parameter | 


Ae Is Process Returns from SHOW and LIST 


: 1 1g 

ry 1 ‘ 

4 5 14 ‘ We have finished with eget icitly formatted data both 

3 ¢ 1? } ascii image and binary fields 

: i$ i Now we are going to decode implicitly formatted fields. 

: 8 ! The format of the data is known in the PTB for the parameter 
: 1 ! and is passed here by the TYP value. 

; 0 ! These types of data ! be eult tpl epleptesiesly (sic) coded so 
: ? } we may call ourselves to decode the subfields 

: : 4 IF .DTY CNMASV_PTY_MULJ ! Is the field multiply coded 
3 4 5 THEN 

; 5 § BEGIN 

; $ MULCTR = .DTY CNMASV_PTY_CLEJ; ! Grab the count of fields 

; 8 IF .MULCTR GTR NMASC-PTY-MAX | Is it ridiculous? 

; 8 9 N ! Signal a parameter error 

3 9 0 SIGNAL_STOP (NCPS$_BADMSG, 1 

: 2 ; ASTIC ("too many multiply coded fields’) ) 

; 33 ‘ 

$ 2g 4 ! 

3 See s : Now we are going to handle some special formatting for multiply 
: 2355 } coded fields. There are three fields to worry about. 

3 28 * ! version triples, node names -addresses and Logging events. 

3; 235 8 ‘ These parameters are passed as coded multiple fields so we 

; $25 zr must add some special formatting around them. 

: 2360 "Be 

3 363 3e | ery rcrone TYP OF ' Select action by expected type 
: i 

3 368 3s CPBKSK_TRIPL] : ' Triples are easy, just a V 
3; 2365 346 4 BEGIN ' and . between the numbers 

3 $08 #4 4 ADDSTR (‘'V"); 

3 3 ° — IDX FROM 1 TO .MULCTR ! For each of the subfields 

; 369 50 BEGIN 

: 371 3) IF .IDX NEQ 1 ! Separate after the first 

: , 358 ADDSTR (*.") 

: r + : NCPSPARSEPARM ! Parse each following subfield 
F z $7 : CHSRCHAR_A (.PTR), ! Pickup data type 

; 4 359 : PBKSK_END, ! We do not know the data 

; 1 ) 

3 1 ¢ ? END 

: 5S 4 MULCTR = 0 ! No more fields to process 

3 5 3 END; 
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Process Returns from SHOW and LIST d., ep-1984 23:5 AX-11 Bliss-32 V 
ARSEPARM Parse a Parameter 4- 1278 08= 1382 3: 28; #8 


NCP.SRCINCP SHOLYS “B3e; 


For a subaddress range coded multiple, put a dash between the values. 


POKSS Fed: 
ee IDX FROM 1 TO .MULCTR ! For each of the subfields 


BEGIN 
IF .1DX NEQ 1 Separate after the first 
— 


ADDSTR (‘="); 
NCPSPARSEPARM( ! Parse each following subfield 
- HSRCHAR_A (.PTR), ! Pickup data type 
Paxsk. END, ! We do not know the data 


END; 
~" = 0; No more fields to process 


For a range List coded multiple, put a dash between the values 
of a value pair, and place a comma between value pairs 


rane. pense 
a. IDX FROM 1 TO .MULCTR ! For each of the subfields 


BEGIN 
IF .IDX NEQ 1 Separate after the first 
— 


ADDSTR (‘'="); 
NCPSPARSEPARM( ! Parse each following subfield 
on RCHAR_A (.PTR), ! Pickup data type 
PaKsk. END, ! We do not know the data 


o~ 
ee 


END; 
oo = ! No more fields to process 


F._DFL_ SPL DFR BF. BF. BFR BFR. DFA DF. DPR DF. De. BFL BPR DFR DPR OP. BR BFR UM. OM OPM 
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bs AX-11 Bliss-32 V4.0-74 
Returns from SHOW and LIST Sep-1984 
VOel000 NEPEPARSE PARA Parse a Parameter 4-Sep- 7 3: 28: 78 NCP. SRCINCPSHOLIS.B832 
: 2431 410 
: ¢ § aH i For node addresses names we need to surround the names in () 
+ 24 4) ‘ 
: Stee a1 LPBKSK_NADR) : 
> 26 416 4 BEGIN 
: 26 417 & LOCAL 
: 2639 418 4 AREA, 
> 2440 219 4 AREA_ADDR : BBLOCK [4]; 
i gaa rhs a ' ly an address 
3 <2 : 1 2 if -MULCTR GTR 2 we expect only 
: NCP$_BADMSG, 1 
4 tes " ; é some <1 ( too” many multiply coded fields") ); 
+ 266 425 & 
: 2646 426 4 
H »-PTR + 1; 
: ret ¢ ; 4 AREA DDR = (.(..PTR) < 0, 16, 0 > 
+ 2450 429 4 AREA™ - PO AREA _ADDR LNMASY AREAS; 
: $023 rt IF .AREA EQL 0 
: tez " g : BEGIN ! No area so handle normally 
+ 26455 4 5 ADDSTR (*!3uw'); 
: 26456 435 3 ADDF AO (.AREA_ADDR); 
: 2457 436 ke 
s $028 ¢ i ¢ oan ! Non zero area must be separated from address with °. 
+ $028 439 5 ADDSTR (*!2Uy. UW"); 
: 2661 440 § ADDFAO (. AREA) 
: 46 441 5§ ADDF AO (. AREA_ Aor CNMASV_ADDR] ); 
8 ie “ 
s ghbs 44a 6 .PTR = ..PTR + 2; 
: te3 445 4 stati 
: ' 
; vet 4 163 2 race EQL 2 ! We expect only an addre 
: 3069 169 3 ADDSTR oe" as ! Place parens around Node name 
: 370 450 § NCPSPARSEPARM 
: t 482 é CHSRCHAR_A (.PTR), 
: gre ra PBKSK_NADR, 
3: 2675 ‘ 
2 ser 439 ADDSTR (*)*"); 
3: 2478 AF 
tho 439 
: tay 460 4 MULCTR = 0 ! No more fields to process 
+ 2682 461 3 END; 
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Process Returns from SHOW and LIST 1$-sep- =1386 $3: tf #6 ore Bliss-32 V4.0-74 


NCPSPARSEPARM Parse a Parameter 4-Sep- NCP.SRCIN PSHOLY $.B32; 
4 ! 

ass For a DELTIM coded multiple, put a colon between the values. 
465 

rh | CPBKSK_DELTIM): 

4 4 BEGIN 

rs 2 pace IDX FROM 1 TO .MULCTR ! For each of the subfields 
130 BEGIN 

471 LOCAL 

47 L_DTY : BBLOCK [1], 

of LEN; 

475 IF .IDX NEQ 1 ! Separate after the first 
rh THEN 

rye ADDSTR (':'); 

479 2 L_DTY = CHSRCHAR_A (.PTR); 

480 LEN = -L DIY “ENRRSV PTY "NLED; 

481 ADDSTR 

4 ; SELECTONE’ aren OF 

483 5 ET 

484 5 1] : 

485 6 BEGIN 

4 6 ADDSTR ('B‘) 

487 $ ADDFAO (. ” PIR): 

488 END; 

489 5 C2] : 

490 6 BEGIN 

491 6 ADDSTR ‘tee 

492 6 ADDFAO ( W bir: 

493 5 

494 5 COTHERW: se 
rhe : SIGNAL_ STOP (NCPS -BADMSG, 1, ASCIC (* Delta Time not decoded')); 
497 5 

498 5 -PTR = ..PTR + .LEN; 

499 4 END; 

500 4 
2501 4 MULCTR = 0; ! No more fields to process 
206 END; 

50 

504 

aoe 8 

2pe For Daytime specification, we must format it specially. 

509 

510 CPBKS$K_DAYTIM): 

511 4 BEGIN 

21¢ 4 LOCAL 

513 4 COLTBL; 

514 4 

515 4 COLTBL = .NCPSA_COLTBL; ' Save it 

516 4 NCPSA_COLTBL = 0; ! Blank it to override 50 formatting 
at 4 ? ' used if COLTBL is 


NCP 
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Returns from SHOW and LIST 
SEPARM Parse a Parameter 


NCPSPARSEPARM ( 
CHSRCHAR_A (.PTR), 


.P o 
PBKSK_END, 


sLST); 
ADDSTR ('="); 
MULCTR = .MULCTR = 1; 


NDTY = CHSRCHAR (..PTR); 
. = ee > 
iF .NDTY CNMASV_PTY COD} 
AND NOT .NDTY CAMASV_PTY_MUL] 


zv 
os 
vo 
ve 
uw 
zw 


BEGIN 
NCPSPARSEPARM ( 
NDT 6 


PTR, 
PBKSK_LITB, 
ST); 


MULCTR 
ADDSTR 
END; 


_ IDX FROM 1 TO .MULCTR 
BEGIN 


LOCAL 
L_DTY : BBLOCK (1), 
LEN; 


»MULCTR = 1; 
3 


= 
q? 5 


IF _ .IDX NEQ 1 
ADDSTR (°:"); 


L_DTY = CHSRCHAR_A (.PTR); 
LEN = +L gOTY, CNARSV_PTY_NLEI; 


DD DD PPI BB BS SB BE WANA WIIIIRIPOPUPOPIPOPUNOPUN 


NAAAAO 


E 
C2) : 
BE 

ADDSTR ('wW'); 
ADDFAO (...PTR); 
END 

COTHERWISE) : 


N 
ST 
FA 


LUPVPVPVPUPVPU DVDSP SUSIE SU SESSILIS IIIS ISTITUTO SISSY 


Fe eee ea eeu lesen eat walesleale te UNS NN eee ea or or oie eee eee ww oP oe oo oo or or a or 


~AaANNs 


-PTR = ..PTR + .LEN; 
END; 


rhe Bliss-32 Pie etd 
NCP. SRCINCPSHOLIS.832; 


Assume we do not know 
its format 


One less subfield 
The second data type 


If it's coded 
and not multiple 


Decode Month field 


! One less subfield 


' For each of the subfields 


! Separate after the first 


res SIGNAL_STOP (NCPS_BADMSG, 1, ASCIC (* Daytime not decoded')); 


Page 8) 
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Returns from SHOW and LIST if-sdp-19 4 t 3! i! #6 AX-11 Bliss-32 V4.0-74 


SEPARM Parse a Parameter 14-Sep-1984 NCP. SRCINCPSHOLIS.832; 
NCPSA_COLTBL = .COLTBL; ! Restore it 
pate = 0; i No more tlelds to process 


SSSLSARANLES ELE 


MPI 2 2 SS OS OO 
NM —OCOCONOULSUN—O Ie 4 


MMO one fonononofronoronrnrnn 
PAAAAAAAAA AAA AO Coo 
ouooowowowovowo 


For a LITLST coded multiple, put a dash between the values. 


CPBKSK LITLSTI: 
ay IDX FROM 1 TO .MULCTR 


For each of the subfields 


BEGIN 
IF .IDX NEQ 1 
THEN 


Separate after the first 


Parse each following subfield 
Pickup data type 


We know they'll be coded 
from the same table 


ADDSTR (*, '); 
NCPSPARSEPARM( 
CH rl A (.PTR), 


PoxSK. L116, 
-LST) 


END; 
Sh = 0; No more fields to process 


gS 
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N psnoyts 


PAEAAAASAAAAAAAAA OS 
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=: 


AX-11 Bliss-32 V4.0-742 
NCP. SRCINCPSHOLIS.832;1 


The first data type 
If it's coded 


4 
Process Returns from SHOW and LIST 18-sep-1 
NCPSPARSEPARM Parse a Parameter 14-Sep-1 
a 
oh? ! For entity specifications, we must format it specially. 
iF CPBKS$K_ENT]) 
8 BEGIN 
608 NDTY = CHSRCHAR Ste” tnd 
0 IF .NDTY CNNASY =P op§ 
rene? ANDTY LAMASY. PTY_MUL] 


PDAEXAXAXAXA AA AAA AAA AA AAA AAA AAA AAA AAA A AAO 
SOWDWNOAO UES WN OS OONOAOUES WN OOONOULSUN—0O0 


PWN NIIP RIPINININPINI NINN 2 OO oe ee 


PMIPIPIPIPINININININIPYINININININININININYAY 


rSSSSIII SS 


NOUS WN —O OONOUS WN 


PAQUIN NNN NN NN NNN NSS INP AA AAA A NNT BP 


PAAAAAOO 
PAA AMUIVA 


BEGIN 
SOURTYP = eg oe (..PTR + 1); 


PTR = .. 


MULCTR = .MULCTR = 1; 
IF .MULCTR GTR 0 
THEN 


BEGIN 
NDTY = CHSRCHAR (..PTR); 


IF “SOURTYP EQL NRASC ENT NOD 
NOT .NDTY CNMASV_PTY co 


AND NOT .NDTY CNMASV_PTY 


AND .(..PTR#1) < 0, 16, 0 


BEGIN 

ADDSTR(° Executor’ ds 
PTR = R + 3; 
END 


BEGIN 
poe: « SOURTYP 


PAMASC _ENT_LIN]: ADD 
NMASC-ENT-CIRJ: ADD 
NMASC~ENT-NODJ: AD 
ENMASCIENT MOD: ADD 

NCPSPARSEPARA( 


CHSRCHAR, A (.PTR), 

paKsk END, 

0); 

= .MULCTR - 1; 

NDTY = CHSRCHAR (..PTR); 

IF .SOURTYP EQL NMASC "ENT _NOD 
AND .MULCTR GTR 07 
AND _NDTY CNMA$V_PTY_ASC] 

AND NOT .NDTY ENRASV PTY_COD 


BEGIN 
NCPSPARSEPARM( 


CHSRCHAR_A (.PTR), 


! and not multiple 
ve the entity ID 
ip CM byte and entity ID 


less subfield 


Sa 
' Sk 
One 
If there are more left 


oa 


a . yo code 
t node, 
' an nd net coded, 
' and not ascii, 
QL 0 ! and it's node number 0, 


“A 


voo:--2z 


! then print it specially 
i Sk ip over node address 


! Based on entity type, 


STR('Line '); 
STR(*Circuit™ *): 


DDSTR('N 


ode ar 
STR('Module *); 
Parse the string or number 


' Assume we do not know its 
format 


! One less subfield 


' Next data type code 
i Source is a node 

i Fields are left 

i Its ascii 

j ! And not coded 


Parse as a node name 


Pa 83 
9° 24) 


EE 


NC! 
vO 


N PSROL IS 


1 


Proce 


Returns from y he end A 
NCP BA SEPARM Parse a Param 


END; 


BBKSK_NADR, 


MULCTR = .MULCTR = 1; 
END; 


i$oseon196s 25:55:26 yMMotL Oleg: 


! One less parameter 


32 Vv. 
SHOLIS 


| 


4 j 
NCPSHOLIS Process Returns from SHOW and LIST 1b-se -1984 23:53: AX<11 Bliss-32 V4.0-74 Page 85 
YO 2000 NCPSPARSEPARM Parse a Parameter 12-8 08= 1c 93:28:46 NCP SREINCPSHOLTS 032; . (28) 
; 2689 665 
; 2690 66 ' 
: 2691 66 : Events are very difficult however. We must format the source 
: 269 668 : type and follow it by the event class (possibly wild) and then the 
; 269 28? : event mask. 
+ 2694 670 ; 
; 2695 671 
3 O38 ore 
:; 269 67 CPBKSK_ESET TO PBKSK_ESNO, PBKSK_ESCI] : 
; 2698 674 4 BEGIN 
; 104 675 4 NDTY = CHSRCHAR (..PTR); ! The first data type 
; 2700 676 4 IF .NDTY CNMASV_PTY_COD) i If its coded and not mult 
: 2701 677 & AND 
; 270 678 4 -NDTY CNMASV_PTY_MULJ ! Then its the source type 
; 270 679 & N 
: 2704 680 5 BEGIN | 
; 2705 681 5 SOURTYP = CHSRCHAR (..PTR + 1); ! Save the source type for 
; 2706 ors 2 ' Later formattin 
; 2707 68 IF .NCPSA_COLTBL NEQ 0 ! Formatting for columns? 
; 2708 684 5 THEN | 
3; 2709 685 6 BEGIN 
; sfio 686 6 ADDSTR (°!19<"); ' Source in a field 
: 2711 687 6 .PTR = ..PTR + 2 ! Skip the data type byte 
3 sig 2688 6 ! and the code byte too 
3; 271 689 5 
3: 2714 690 5 NCPSPARSEPARM ! Write source type 
$ sii? 691 5 : pane the parameter to 
: 2716 2692 5 CHSRCHAR_A (.PTR), ' Look up the keyword for the 
: 2717 2693 5 ‘ ‘ ' source type. 
; 2718 2694 5 PBKS$K_LITB, 
: 2719 2695 5 NCPS$GA_TBL_EVESOUR ! Event source keyword table 
> 2720 2696 5 ) | 
: 2721 2697 5 : ‘ 
; $756 2698 5 MULCTR = .MULCTR = 1; ! One less subfield 
; 272 2699 5 IF .SOURTYP NEQ XXx'FF* ! If it's not a null source 
3 2724 2700 5 AN 
3; 2725 2701 5§ -MULCTR GTR O ! And there are more left | 
3 $is6 A 5 HEN | 
: 2727 703 6 BEGIN 
3; 2728 704 6 SELECTONEU .SOURTYP ! Based on source type, | 
: $i¢2 705 6 OF 
3: ef 706 6 SET ; 
> 2731 707 6 NMASC_ENT_LINJ: ADDSTR('Line '); 
3 738 708 6 NMASC_ENT_CIRJ: ADDSTR('Circuit '); 
; a7 709 6 NMASC"ENT-NOD]: ADDSTR('Node '); | 
3 2734 710 6 : : 
3 2735 711 6 IF .SOURTYP NEQ ! If it's not a node 
: 27 rie & NMASC_ENT_NOD 
: 273 713 6 THEN : 
: ie at} 3 NCPSPARSEPARM ! Parse the string or number | 
3; 2740 re 6 CHSRCHAR_A (.PTR), 
: 2741 717 6 ‘ . ‘ 
; 274 718 6 PBKSK_END, ' Assume we do not know its 
3: 276 719 6 0 ! format 
3: 27446 0 6 ) 
: 2745 721 6 ELSE 
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WN OOONAUE WN" OOONOUS wry 


NNNNNNNNNNNNNNNNNNNNNNNN 
SS 


POPIPIPIPIPIPOPINININIPONININININPU NPI NOP Po nono nonononononyoronopopnopopororornornorornonrn 
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SN SSS 


QDR AAA AA AAA AAA MII MIVIVIUIUIO O O O “I 09 09 09 09 “09 09 0908 SINS NINN NNN 


BEGIN 
LOCAL 


AREA, 
AREA_ADDR : BBLOCK (4); 


= ,.PTR + 1; 
AREA AD DDR = (.(..PTR) < 0 


- 16, 0 >); 
AREA"= .AREA_ADDR CNMASV_AREAS; 
IF .AREA EQL 0 
THEN 
BEGIN ! No area so handle normally 
ADDSTR ('!3uUW'); 
ADDFAO (.AREA_ADDR) ; 
END 
ELSE 
BEGIN ' Non zero area must be 
ADDSTR ("!2UW.!UW"); separated from address 
ADDFAO (.AREA); wit 
+ gag (. AREA_ADDR CWMASY _ADDRI ds 


PTR = ..PTR + 2; 
END; 


— = .MULCTR - 1 One less subfield 


ELSE 
ADDSTR("(ALL sources)'); 


NDTY = CHSRCHAR (..PTR); ! Next data type code 
IF . SOURTYP EQL NMASC "ENT NOD ! If source is a node 


AND 
-MULCTR GTR O Fields are left 


«NDTY CNMASV_PTY_ASCJ ! Its ascii 
hid CNMASV_PTY_COD) ! And not coded 
IN 
DSTR (* ("); ' Place parens around Node name 


NCPSPARSEPARR’ 
CHSRCHAR_A (.PTRY, 
.PTR, 

PBKSK_NADR, 


Parse as a node name 


); 
ADDSTR (*)"); 
MULCTR = .MULCTR - 1 
END 


One less parameter 


iF .NCPSA_COLTBL NEQ 0 
ADDSTR ("!> *) 
END 


If column output 


Close off the source column 


4 
1B-seo-1986 25:55:26  yayctt Bl fe0-52 4.0274 
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3 


42 Page 3? 
4 4 NCP.SRC 1 (25) 


p-19 -7 
p-19 NCPSHOLIS.832; 
' 
i 


: 779 4 IF .MULCTR GTR O If there are still more 

: Be f ? 4 ig Subfields 

: 7 é NDTY = CHSRCHAR (..PTR); ! Look at the data type 

; 7 IF .NDTY EQL 2 ' Two byte unsigned decimal? 

; 3 f ¢ 3 sin ! Its the class code 

; 2810 786 6 .PTR = ,.PTR + 1; ! Advance to value 

; Bt i ? ECts . o£, ,PTR) <0, 9, wont Ses ry on Me bits) | 
; . < : ! ance over 
: ig 789 6 MULCTR = .MULCTR = 1; ! Reduce the number of fields 
: \2 f ? SELECTONEU .(. .PTR=25<14, 2, 0> OF! Look at the wild codes 

: B16 792 6 
: 3 a? 8 C0] : ! Single event class, and mask 

; B18 795 7 ADDFAO (,ECLS); 

; 2820 796 7 ADDSTR (* !UW."); !' for the class 

; 2821 797 7 NDTY = CHSRCHAR (..PTR); ! Get the data type 

; Hi a8 4 IF ey EQL %x"20' ! Hex image? 

3 B24 800 , ren MLCT GTR O ! And there is one 

: B56 802 8 

; 2827 805 8 -PTR = ..PTR +1; _! Advance to hex image 

$ $a56 804 8 NCPSPARSEVENTS (.PTR);:! Decode the mask 

3 4 44 : eise 8 Little help from our 
; ' friends 

3 2831 3807 | BULCTR = .MULCTR - 1 ! One Less subfield 

: 833 $B09 é ); 

> 2834 2810 6 

: tH sel) 3 C1) ! This is a reserved type code 

i $839 3818 ? SIGNAL STOP (NCP$_BADMSG, 1, 

: te) sale : ascic T' reserved event ciass code’) ) 

; 2840 B16 6 ‘ 

$ Bes HA S C2) : ' wild Mask 

; Bes 819 7 ADDFAO (.ECLS); 

> 2844 820 7 ADDSTR (* !UW.*") 

3; 2845 821 6 3 

3 eae 8 § 6 

3 44 ; ? ° (3) ! wild class and events 

3 2849 825 7 ADDSTR (* #,#") 

; 2850 826 6 ; 

; 2851 7 6 TES 

; S26 8 END 

: 5 9 END 

3: 2854 830 END; 

; 2855 oe! TES 

; 2856 2 


4 
VOu-000 —sNCPSPARSEPARM' Parse a Paraneter HESeecH9Rs HEESRE HAUG! UAPhRAGBELYE- 54% 


: os 3 

; 4 : 

3 ¢) 5 ! Take care of all the subfields that are left after we perform 
: 1 § : the special actions. 

; § : If the special formats are wrong this will print the remainder 
3 ; 3 } without leaving us in the middle of a multiple coded field. 

: 2865 40 

: 41 INCR IDX FROM 1 TO .MULCTR ' For each of the subfields 

; 286 eee DO 

; 2868 43 4 BEGIN 

3 Hy Bee 4 IF .IDX NEQ 1 ! Separate after the first 

; 2870 5 4 

; 2871 846 4 ADDSTR (", ") 

:; 287 944 4 ; 

3; 287 48 4 NDTY = .(.,PTR) <0, 8, 0>; |! The new data type 

: B76 849 4 IF .NDTY CNMASV_PTY_MUL]’ / If its multiply coded, 

3 287 851 4 -NDTY CNMASV_PTY_COD] ; 
; 287 B26 4 N ! Blow away, for multiple recursion 
3 2878 853 4 SIGNAL_STOP (NCP$_BADMSG, 1, 

3 Bap S28 ? ASCIC (‘recursive multiple fields") ) 

; 2881 856 4 -PTR = ..PTR + 1; ! Skip beyond the data type 

; 2882 857 4 NCPSPARSEPARM (.NDTY, .PTR, PBKSK_END, 0); 

; 2883 858 4 END 

3; 2884 859 : 

; 2885 860 RETURN 

; sees END 

g 862 2 
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Oo 
Mw 


Ses 


Its not a multiply coded field, so decode the data based on 
the type code passed by the TYP parameter. 


Dispatch on the data type to handle each separately 


LEN = .DTY CNMASV_PTY_CLE); ! The Length of the parameter data 
PSTRT = ..PTR; ! Save the start of the parameter data 


SELECTONE .TYP OF 
SET 


SANs 


CPBKS$K_LITB) : 


WN O OONOV Sw —O 


3332 
EEpeee 


PMIPITIPIPINPIPINIDS — 2 tt ot 
SSBNVSERRUN LS Saenenrun—-o 
Le 
eb a 
o~ 


Be Se Se Se Se Se Se Se Oe Se SH Oe Oe oe Oe Be Oe oe HSH Se Oe Oe Oe Se HOH Oe OH Oe Oe OH OH Oe SH Oe Oe ee ee BH eee 


BISIVSSVSSISSSIBIBVsS 


é 
3 
5 
3 


NWN SKEW LEE 


Dispatch on the type code 


!' This means we want to search a table 
' For a keyword based on a byte code 
IF .LST EQL 0 ' If the List address is zero, 

hats our f 


' 
i] 
f 
a: ault 
SIGNAL_STOP (NCP$_LOGIC, 1, ASCIC ("invalid keyword list’) ) 


costed tanmeemnags ! General routine for searching tables 
-(..PTR) <0, 8, 0>, ! Byte code 
oh Ble ! Table address is word offset 
‘aad ' Put address of text here 
THEN 
BEGIN 
ADDFAO (.TXT); ! Write the text we know 
ADDSTR (*!AC'S 
END 
SE 
BEG 


I 
ADDFAO (...PTR); 
lee ("type #!UB") 


Write in standard form 


sPTR = ..PTR + 1 Advance over code 


<z 


eo 


p-198¢ 2:08:16 — ENCP-SREINEBSHOLIS-032; 
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wr 


Privilege mask 


CPBKSK_PRVC, PBKSK_PRVL] : 
BEGIN 


LOCAL 
PRVMSK : VECTOR (8, BYTE], ! Full 8 byte mask 
CTR ! Temp counter 


CTR = .LEN; ! Obtain bytes in mask 

IF .CTR GTR 8B i If the mask is too long 
THEN ! Signal an error 
SIGNAL_STOP (NCPS_BADMSG, 1, ASCIC (‘invalid privilege mask") ) 


CHSFILL (0, 8, PRVMSK); ' Clear the full mask size 
INCR IDX FROM'O TO MINU (8, .CTR) i Copy the message mask 


PRVMSK C.IDX] = .(..PTR + .1DX) <0, 8, 0> 


-PTR = ..PTR + .CTR; 
NCPSPRIVBITS (PRVMSK, CTR); 


Step pointer beyond mask 


Make bits into text entries 
Return how many strings 


& 


Add the control string 


INCRU IDX FROM 1 TO .CTR 
dO Entries to print them out 


MEW OO OOBNAUES WN S“OOONOAUE WN OOONOu 


AANA AI AI AIP PONIPININININYDYD 2 2 OO OO Oe ee 


WDOODOOOOOODOOODOOODODOODODOODODDODODOOODOOONOONO 


Lesssssse 
WONOVELWN “OV ONOUS WO w 
POPIPOPINOPONONINNINOPOPIPINPININONONOPOPOPOPIPPONOPOPONUNSNOPIPUPIPONUPONNOTD 


; 
¢ 4 BEGIN . 
3 ? IF ( (.IDX MOD 6) EQL 1) ! Every 6 get a new Line 
5 38 5 (. IDX NEQ 1) ! Except the first 
966 39 4 
tt re ? ADDSTR (°!/!27* *) ' A new Line and indent 
$969 4@ 4 ADDSTR ("!AC ") ! A string pointer 
70 4 4 END 
971 44 3 END 
972 945 2 3 


2c 


4 
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3 if 348 COTHERWISE) : 
: re 94 ADDSTR ('2x'''); ! Say the data is hex 
: g 349 INCRU IDX FROM 6 TO .LEN - 1 
; i 38 4 BEGIN ! Write the data reversed 
; 32 4 ADDSTR ("!xB"); 
; 2981 953 4 ADDFAO (.(..PTR+.1DxK) <0, 8, 0>) 
; 954 4 END 
; 955 : 
: 2984 996 ADDSTR (*'"*); 
: Be Bet 7 = ..PTR + .LEN ! Assume the Length is correct 
: 298 959 
; 2988 960 TES 
3; 2989 961 3 
: 2990 96 
: 2991 96 IF (.PSTRT + .LEN) NEQU ..PTR ' Check the coded length and 
3 ¢ 964 THEN ' Our decodin 
; 965 SIGNAL_STOP (NCP$_BADMSG, 1, ! They did not match 
3 4¢ ASCIC (‘invalid (length in parameter’) ) 
3; 2995 96 5 
: 968 
3; 2997 969 RETURN 
; 2998 970 1 END; 
-PSECT SPLIT$S,NOWRT,NOEXE,2 
42 58 21 03 QOA99 P.AET: .ASCII <3>\!XB\ $ 
4 58 21 03 OOA9D P.AEU: .ASCII <3>\!XB\ : 
D 01 QOAA1 P.AEV: .ASCII <1>\-\ 3 
42 58 21 0 BO AAS P.AEW: .ASCII <3>\!XB\ 3 
43 «41 1 #0 OAA7 P.AEX: .ASCII <3>\!AC\ : 
55 35 21 03 OQOAAB P.AEY: .ASCII <3>\!5U\ : 
55 21 OAAF P.AEZ: .ASCII <2>\!U\ 3 
53 1 OAB2 P.AFA: .ASCII <2>\!S\ ‘ 
58 21 8 OABS P.AFB: .ASCII <2>\!X\ 3 
GF 1 OABB P.AFC: .ASCII >\!O\ 3 
61 72 61 70 20 66 6F 3! 68 74 67 of $3 6C 18 QOABB P.AFD: .ASCII <27>\length of parameter is zero\ 3 
6F 72 65 7A 20 69 20 72 6 4 65 6D QOACA $ 
25 1 QOAD7 P.AFE: .ASCII <1>\B\ ; 
5 1 ered P.AFF: .ASCII <1>\W\ 3 
4C 1 ADB P.AFG: .ASCII <1>\L\ 3 
4C 1 BR Ade P.AFH: .ASCII <1>\L\ 3 
42 38 21 3 ADF P.AFI: ASCII <3>\!XB\ . : 
65 6D 61 72 61 70 20 63 72 65 6D 7? of 1A paeS P.AFJ: .ASCII <26>\numeric parameter too long\ 3 
67 6€ 6F 6C 20 6F 6F 74 20 72 § 74 OQOAF : 
69 74 6C 75 6D 20 79 of 1 6D 20 6F gf 4 1 OAFE P.AFK: .ASCII <30>\too many multiply coded fields\ : 
64 6C 65 69 66 20 64 6 6F 20 79 6C 4 peep ; 
56 01 BID P.AFL: .ASCII <1>\V\ 3 
—E Q1 BIF P.AFM: .ASCII <1>\.\ $ 
D 01 B21 P.AFN: .ASCII <1>\-\ ; 
D 01 0B 2 P.AFO: .ASCII <1>\- d . 3 
69 74 6C 75 6D 20 79 6E 61 6D 20 6F 6F 74 1E O0OB25 P.AFP: .ASCII <30>\too many multiply coded fields\ ; 


} 


y 1 Mf te Pe et oe 
NCP.SRCINCPSHOLIS.B832; 
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3 4 
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NCPSPARSEPARM Parse a Parameter 


ao = 
a =] 


-PSECT SCODES,NOWRT,2 
OFFC 00000 NCPSPARSEPARM: 
WORD 


. 7 
> 4 
| 
7 
b 200900007 90 9 goons HaUNB | ARBEAGEAHE-RAAHSWAGAATARBLRP.ATOWRTY © 2087) || 
SR er : : 
SE ti § 8019 SUBL2 #16, SP : 2 j 
«eae ase tod Ph 
0189 31 OOO1F BRW 29$ : ij 
0c at D1 00 2 1$ cMPL NP, #28 ; 2171 2 4 
50 08 at Dd 90098 MOVL PTR, RO 3 2174 : 3 
56 60 9A 0002C MOVZBL (RO), LEN 3 e 4 
08 BC D6 000eF INCL a@PTR + 2175 ij 
53 FF A6 9E 00032 MOVAB =-1(R6), R3 : 2177 2 j 
76 37 boss BRe BS : 3 
0600 8F BB 0003A 2$ PUSHR #*M<R9,R10> : 2180 - 
68 02 FB 0003E CALLS #2, NCPSADDSTR : ij 
50 08 BC b0 00041 MOVL aPTR, R > 2181 ij 
7E 6240 9A 00045 MOVZBL (IDXSCROJ, -(SP) : 2 j 
00000000v 00 01 FB 90049 CALLS #1, NCPSADDFAO : ej 
53 52 Be Ocoee 3s: cwet Da. Rs ane 3 3 
ES 18 g0088 > BLEQU 2S ° ; 2 
1 11 00057 BRB $ > 2184 sy 
1F 0c AC D1 00059 4$: cHPL TYP, #31 ; 2192 : 3 
50 08 BC 06 005F MOVL PTR, RO + 2195 23 
rT 3 60 9A O906s MOVZBL (RO). LEN : 
08 BC D6 00066 INCL aPTR > 2196 
A 0D 00069 PUSHL R10 : 2198 
gH HBP BRS FSFE asus : 
52 08 8B 06 a OVL  aPTR, R2 : 2199 
o0000000v 06 SF PB board PRE She ost DDF AD : 
33 FF AG i 3F nOVA 5] ERs) a3 3 2201 
BRB 63" : 
sh DD a086 5$ PUSHL R10 : 2203 
08 Ad OF OOBA PUSHAB P.AEV ; 
68 2 FB CALLS a NCPSADDSTR : 
A pp PUSHL R10 > 2204 
OA Ad 9F 0009 PUSHAB P,AEW ; 
02 FB 0009 CALLS #2 NCPSADDSTR : 
E 6442 9A 00098 MOVZBL (16x)CR2], -(SP) > 2205 
00000000v 00 ca 9 CALLS #1, NCPSADDFAO : 
53 i f y 6s: CHL DK, 
DE 8 ‘ BLEGU + : : 
0129 31 OOOAA 7$: BRW 28 > 2208 
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Returns from -sep- ; ° 
VouSO00. NCPEPARSEPARM Parse a ae a9 9F 00157 PUSHAB B-AFF sor? 
eee Coe te 
0 13 12 0015F Rl ; 
PUSHL : ; 
42 29 oF 183 ehrse #3, NCPSADDSTR : 2280 
Oe F MOVL PTR -(SP) : : 
en 0 ee oe 2s) | 
me 5 if i 20s: CHL LEN, ; 2285 
12 i? BS 80199 PUSHL R10 : 
29 OF oolrB CALLS, #30 NCPSADDSTR 2286 : 
44 =OA ; 17E 21$ CALLS fr. RO : : 
68 02 Fe 181 MOVL oon’ ; ; 
30 08 85 bb oolss ChE GT MCPSADOFAD ; ; 
81 FB O08? 228 CALLS #1 : 2289 
gone sas 36 01 00196 238: (MPL OLEN, #5 ; 
05 zr 19 00193 BLSS reN. W32 awe 
20 A AL b0198 Mn te ; 
2 Ae Soi Hy { 2am 
1€ 11 R10 : 
4$:  PUSHL ; 
469 OF OO1Al 5 CALLS” #3, NCPSADDSTR : 2295 
68 og 4 BOTA? Rov, re. 8 : 
68 08 BC 8 OOIA7 ADDLZ LEN, R 
30 60 9A 00181 CALLS” #1. NCPSADDFAO ; 
cement 3 v6 a0) 88 258: CNPL IDK. LEN 2290 
56 iC BLEQU ; : 230 
DD 18 09 ° BRB 8$ ; 2302 
12 11 001C HAB P.AFJ : 
6$ PUS : 
4A a9 +4 Bice 335 PUSHL oon BADMSG 
g 01¢9 PUSHL BCP S. BADHISG ; 2308 
000000006 8F DD Odi¢y CALLS #3. LIBSS : 2825 
000000006 00 38 £0 00106 288: ADDL : 2 
08 BC § bi08 298: nee "6 DTY, 308 : 2327 
03 04 AC oss 5 189 ony Hi #6, DTY, MULCTR : 8 
06 By Et Rhibg 508: ENTIV me OTT ; 2351 
04 Ac OF ; » 1EC BLEQ at. ; 2330 
F BD OOTE PUSHL = NICPS_BADASG : 3342 
000000006 BF DD Oo1Fs CALLS #3, LT 
000000006 99 oc OA 06 318: CMPL Re # > 2347 
. oa ee 
A 0D HAB AFL 
0084 09 OF sn 


5 
NCPSHOLIS Process Returns from SHOW and LIST 15-Sep-1984 :53:26 AX-11 Bliss-32 V4.0-74 
¥042000 NCPSPARSEPARM Parse a Parameter 12-80-1880 93:23:98 NCP. SRC WePsHoL i$ :03004 
68 2 FB 0020F CALLS #2, NCPSADDSTR 
bs le CLAL 1D 
311 0001 BRB 4$ 
01 4 D4 1 32$ CMPL 10x. #1 
9 1 1 BEQL $ 
A pd 18 PUSHL R10 
0086 g F 00210 PUSHAB P.AFM 
B FB 1 CALLS ae NCPSADDSTR 
E 17 70 4 33$:  MOVO #2%, -(SP) 
08 AC 0D 7 PUSHL 
0 8 BC pO 020A MOVL aPTR, RO 
E 60 9A 0 F MOVZBL (RO). =(SP) 
08 BC 06 INCL PTR 
FDC? CF 4 Fe 0 CALLS #4, NCPSPARSEPARM 
b9 54 3 £3 00239 34$ AOBLEQ MULCTR, IDX, 32$ 
62 11 00230 BRB 4 
18 52 D1 00 F 35$ CMPL R2 #24 
gD 12 00242 BNEQ  39$ 
4 D4 00244 CLRL 1px 
23 11 00246 BRB 8 
01 4 D1 00248 36$ CMPL 1px, rT 
09 13 00248 BEQL 7 
5A DD 00240 PUSHL 1 
0088 C9 SF O024F PUSHAB P.AFN 
6B 02 FB 00253 CALLS #2 NCPSADDSTR 
7E 17 7D 00256 37$: MOVa #28, -(SP) 
08 AC DD 00259 PUSHL PTR 
50 08 BC dO 0025¢ MOVL aPTR, RO 
7E 60 9A 00260 MOVZBL (RO), =(SP) 
08 BC 06 00263 INCL 
FD9S)—sCF 04 Fe 00266 CALLS #4, NCPSPARSEPARM 
D9 54 53 3 00268 38$:  AOBLEQ MULCTR, IDX, 36$ 
30 (13 0036 BRB 
1B 52 D1 00271 39$:  CMPL  R2, #27 
gE 12 00274 BNEQ 44$ 
4 D4 00276 CLRL —s IDX 
¢3 11 00 78 BRB 42$ 
01 4 D1 0027A 40S:  CMPL IDX, #1 
09 13 0027D BEQL 6 41 
A DD O0e7F PUSHL R10 
008A C9 9F 00281 PUSHAB P.AFO 
6B 02 FB 00285 CALLS #2, NCPSADDSTR 
7E 17 7D 00288 41$:  MOVd 2%, -(SP) 
08 AC bp 0 BB PUSHL PTR 
0 8 BC D OVL PTR, R 
E 60 9A 0029 MOVZBL (RO). -(SP) 
08 BC D6 0029 NCL aPT 
FD63 CF 4 Fe 0298 CALLS #4, NCPSPARSEPARM 
D9 54 3 £3 0029D 438: AOBLEQ MULCTR, IDX, 40$ 
O1FA 31 002A1 43$: BRW $ 
07 5¢ D1 6 AG 44$:  CMPL Ro, #7 
13 002A7 BEQL 46-45 $ 
0080 31 0029 BRW 49$ 
02 D1 OO2AC 45%: CMPL MULCTR, #2 
13 15 OOOAF BLEQ 46 
00sec § co «(9F 00281 PUSHAB P.AFP 
01 DD 00285 PUSHL #1 


ee Se Se Se Ge Se Ge Se Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Ge Se Be Ge Ge Se Ge Ge Fe Se Ge Ge Ge Ge Ge Fe Ge Ge Se Be Se Se 


; or 
f SHOW and LIST 1$-sep-19 4 23:53: AX-11 Bliss-32 V4.0=74 Page 

Voul00b- Nee SARSEPARM Parse a Parameter 127808-1 3b $3:23:48 NCP.SRC NEPSHOLY$:63224 (29) 
000000006 8F DD 00287 PUSHL CP$_BADMSG ; 
#3, LIBSSTOP : : 
seetenane 98 08 os b a4 46$: nour PTR Re ; 2427 ; 
$3 Re ‘ mOVEuL inh AREA_ADDR + 2628 ; 
36 ™ A f cf EXTZV #10, #6, AREA_ADDR, AREA : <3 ; 
2 ot os D i D BNEQ  47$ : 431 ; 
$B Fike BR fog Feat | 
00AB : ; 
#2, NCPSADDSTR : 
7 oe BD 6 DE PUSH ARE DR + 2435 
A ase] 
oT OR 6 Gigs CARS. B82 crsanosre Pat 
FA : : 
en ee 00 EF 00sF4 EXT2V #0; #10. AREA-ADDR, =(SP) : 2441 ; 
f: 01 FB OO2F9 488: CALLS #1, NCPSADDFAD : ; 
soeauonte 89 02 ¢O 00300 ADDL2 #2. (R2) + 2646 : 
99 12 00306 BNEQ 43$ po 
26 OP 50808 PUSHAB BARS : : 
68 a §3 4 $0 OE CALLS ae. NCPSADDSTR aon : 
gs PS A Se +t 
7E 00 63 oh 00316 HOV ZBL a0(R2), (SP) > 2452 ; 
62 D : ; 
FCDF CF 04 FB o0s1¢ CALLS #4 NCPSPARSEPARM Sa 
HAB  P.AFT : 3 
6B oe 53 4 a CALLS. 2, NCPSADDSTR (poe 
20 4 D1 $6 ¢ 49S:  CMPL 2, #32 + 2466 
ge 3) oo3or BNEG = 58$ B ce : 
Bee Boe he) eee : : 
3? if $08 7 BRB es Pie : 
01 55 01 00339 50S: = CMPL Dx, " ; ; 
ce fan| i 
6B _— §3 Pr 60 te CALLS He NCPSADDSTR Baw ; 
50 00 Be b 0347 51$: OVB a0(R4), L_DTY ; : 
85 BP Soace ANTS £0. ns L_DTY, LEN > 2480 : 
6 + “ gf DD 6 3) BUSH Bike > 2481 ; 
P.AFV : ; 
6B 3 4 4 CALLS. #2, NCPSADDSTR = : 
01 2 D1 B CMPL LEN, a : 3 
12 00 BNEQ $ : 2486 | : 
of pd 036 PUSHL R10 ; 
core AT Shies age Ete Pais: 
52$: CMPL EN, #2 : 3 
ES as : , 
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NCPSHOLIS Process Returns from SHOW and LIST 1b-se -1984 753: AX-11 Bliss-32 V4.0-74 Pa 98 
vO NCPSPARSEPARM Parse a Parameter 1278 08=198e 93:23:96 NCP.SRCINCPSHOLIS g35"4 9095, 
| 
SA DD 00360 PUSHL R10 : 2491) ; 
00¢6 3 BF $f PUSHAB P.AFX : | ; 
2 FB 3 53$ CALLS #2, NCPSADDSTR : | ; 
00 84 DD i: PUSHL + 2492) : 
00500000v 00 1 FB 7 CALLS #1, NCPSADDFAO : F 
; 1 9 BRB 55$ : 3482 ; 
00c8 9F 54$ PUSHAB P.AFY > 2495 | : 
000000006 BF DD 00 PUSHL —ANCPS_ BADMSG 
000000006 00 7 9 : CALL #3, LIBSSTOP : : 
64 C 5$: ADDL2 LEN, (R4) + 2498 : 
9D 5 F 0 98 g$: AOBLEQ MULCTR, IDX, 50$ : 468 : 
OOFF 31 9C 578: BRwW 7 3 2501) 3 
21 52 D1 OO39F 58$ CMPL R2, #33 : 2510 F 
03 13 003A2 BEQL 460s : ; 
00c5 31 0034 BR 68$ : ; 
58 00000000' 00 DO 003A7 598: MOVL  NCPSA_COLTBL, COLTBL : 2515 : 
00000000" 00 D4 OO3AE CLRL NCPSA~COLTBL : 2516 : 
10 AC DD 00384 PUSHL LST + 2523 F 
17 DD 00387 PUSHL #23 : 2519 : 
52 08 ac 00 0389 OVL PTR, R2 + 2521 ; 
52 DD 0038D PUSHL : F 
7E 00 B62 9A 0038 MOVZBL @0(R2), -(SP) : 2520 : 
62 06 99 C3 INCL : : 
FC36— CCF 04 FB 003C CALLS #4, NCPSPARSEPARM : ; 
5A DD OO3CA PUSHL R10 + 2524 ; 
00EO C9 OF 003CC PUSHAB P.AFZ : : 
08 FB 00300 CALLS #2, NCPSADDSTR : F 
53 D7 00303 DECL MUL : 2525 : 
55 00 82 9A 00305 MOVZBL @0(R2), NDTY + 2527 : 
6 p6 00309 INCL (R2) : 2528 : 
55 95 00308 TSTB ss NDTY : 2529 ; 
1D 18 00300 BGEQ 60$ : 
19 55 06 £0 O30f BBS #6, NDTY, 60$ : 2530 
10 AC DD 003E3 PUSHL LST : 2537 
01 OD 00366 PUSHL #1 : 2533 
22 DD 003E8 PUSHL R2 ; 3335 
DD OO3EA PUSHL NDTY : 2534 
FCOF CF 04 FB 00 EC CALLS #4, NCPSPARSEPARM ; 
3 D7 003F1 ECL § MULCTR : 2539 
SA DD 00 F3 PUSHL R10 : 2540 
O0E2 C9 OF OO3F PUSHAB P.AGA F 
é FB 003F9 CALLS #2, NCPSADDSTR ; 
ps 9 FC 608: CLAL IDX > 2543 
F 11 F BRB 67$ : 
01 7 D1 00400 61$: CMPL IDX, #1 > 2550 
99 13 0040 BEQL 62$ : 
A bb 49 PUSHL R10 : 2552 
00E4 C9 9F 004 PUSHAB P.AGB : 
0 FB 408 CALLS a NCPSADDSTR ; 
50 00 8 90 004 : 62$:  MOVB a0(R2), L_DTY > 2554 
D6 0041 INCL (R2) : 
54 50 04 9 EF 00414 EXTZ2v. #0, #4, L_DTY, LEN : 2555 
A BD 419 PUSHL R10 > 2556 
0066 C9 9F 0041B PUSHAB P.AGC ; 
68 2 FB OO4IF CALLS #2, NCPSADDSTR : 
01 4 01 00422 CMPL LEN, #1 > 2559 
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000000006 
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18-se -1984 253: AX-11 Bliss-32 V4.0-74 
12-8 08= 1 he 93:28:96 Yee eRe INCPSHOL SO 3e07 

12 004 5 BNEQ 63$ 
pd 4 PUSHL R10 

F 00429 PUSHAB P.AGD 

11 0040 BRB 64$ 
D1 0040F 63$:  CMPL LEN, #2 

12 00432 BNEG 65$ 
pp 4 PUSHL R10 

F 04 PUSHAB P.AGE 
FB 0043A 64$: CALLS #3, NCPSADDSTR 
DD 004 PUSHL  @0(R2) 
FB 440 CALLS #1, NCPSADDFAO 
11 0044 BRB 66$ 
9F 00449 65 PUSHAB P.AGF 
DD O0440 PUSHL #1 
DD 0044F PUSHL #NCP$_BADMSG 
FB 00455 CALLS #3, LIB$STOP 
CO 0045C 66$:  ADDL2 LEN, (R2) 
F3 0045F 67$: | AOBLEQ MULCTR, IDX, 61$ 
dd 00465 MOVL COLTBL, NCP$A_COLTBL 
11 0046A BRB 2$ 
D1 0046¢ 68$:  CMPL R2, #34 

12 0046F BNEQ 74$ 
D4 00471 CLRL 1Dx 

11 00473 BRB 1$ 
D1 00475 69S: — CMPL 1px, " 

13 00478 BEQL 0$ 
DD 0047A PUSHL R10 
9F 0047C PUSHAB P.AGG 
FB 00480 CALLS #2, NCPSADDSTR 
DD 00483 70$:  PUSHL LST 
DD 00486 PUSHL #1 
DD 00488 PUSHL PTR 
DO 00488 MOVL PTR, RO 
9A 0048F MOVZBL (RO). -(SP) 
06 0049 INCL aPTR 
Fe 049 CALLS #4, NCPSPARSEPARM 
F3 0049A 71$:  AOBLEQ MULCTR, IDX, 69 
ps 004 es: CLRL MUL CTR 

1 004A0 73$:  BRW 113$ 
D1 OO4A 74$: = CMPL Re #22 

13 00406 BEQL «6 75$ 
3} OO4AB BRW 86$ 
DO 004AB 75$:  MOVL PTR, R4 
pO 4AF MOVL (R45, RO 

A 0048 MOVZBL (RO); NDTY 
95 0048 TSTB =NDTY 

18 048 BGEQ 46 73$ 
: 0489 BBS #6, NDTY, 73$ 

A 00480 MOVZBL 1(RO), SOURTYP 
C9 4C1 ADDL2 #2, (R4) 
D C4 DECL my CTR 

15 00466 BLEG si 
p0 48 MOVL  (R4), RO 

A 004CB MOVZBL (RO); NDTY 

DS 004C TSTL sourt P 

12 0040 BNEQ 6 

95 0040 TSTB = NDTY 
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7E 00 
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MOV ZBL a0(R4), -(SP) 
CALLS a. NCPSPARSEPARM 
$:  MOVZBL @0(R4), NDTY 

L  SOURTYP 


4$ 
TSTL MULCTR 
BGTR 85$ 


Hh 
NDT 
84$ 
i #7, -(SP) 
MOVZBL a0(R4), -(SP) 
CALLS #4, NCPSPARSEPARM 
B 106$ 
86$:  CMPL R2, #14 

CMPL f #19 
87$:  CMPL R2, #26 


84§ 
88$: MOVL PTR, R2 
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H 5 ; AX=11 Bliss-32 v4.02742 Page 196 
15-Sep-1986 23:53: PSHOLIS.832; 
PSHOLIS Process Returns from ay RA 1278 08- 138. 13:28:46 tNCP. SRC NC . 2730 : 
¥O6=000 NCPSPARSEPARM Parse a Pa oY, ageism apc atera | 
h , ° 
_— ; i sig CALLS Ab, NCPSADDSTR ; 2740 
DD O06IF CATS #1, NCPSADDFAO : 2761 
00000v 00 4 EB Bees) EXTEY #0; #10; AREA-ADDR, ~(SPD Bu ; 
se A 0 EF 8 : CALL #1, NCPSADDFAO + 2764 : 
7e 00000000 99 cB 83, Ost ADDLS aa! tRe) : 5747 ; 
. § 57 00687 1018: peck ; 2750 
BA DD 00688 1028: PUSHL RIO ; ; 
0154 9 oF 88 CALLS ne, NCPSADDSTR ; 275 : 
OA O06c4 1038: MOVIBL SOCRDD. NDTY ; 275 : 
5 00 9A 00644 103 TSTL SOURTYP : ; 
D5 00648 BNEG 04$ ; 2755 : 
ea p~<Es 
CLS Riese BBE) #6, NDTY, 1048 : 2759 : 
55 § £1 00690 TSTB NDF ; é 
a 2 48 dosse BLSs 1048 ¢ eres : 
tao Soe PU BNE : 
0162 = C9 PF O0G0A CALLS #2, NCPSADDSTR > 2764 : 
68 G2 FB 006% move’ #9, SCSP) ; 2766 : 
00 83 9a cose MOVZBL @0(R2), -(SP) 
2 TER Bote CALLS #4. NCPSPARSEPARM : 2770 
oer ad a al : 
0165 2 Fs poet3 CALLS #2, NCPSADDSTR : 277) 
¢ ; 
D7 OO67A DECL MUL TBL 3 
00000000" 8} By BBsEE Hove: TSIEN cot bse 
2A op Bosh PUSH IO. 
o167 fF et xone CALLS #2, NCPSADDSTR : 2779 
68 Be FO ROM toss: Fett CTR ; 
66 15 0068F MOVZBL @0(R2), NDTY ; 278 
33 0 8S Ot de9s cpl NDTY, 2 : 2786 
ve 78 12 00698 INCL (RO) 318) 
EF O06ee ADDS aoe RDS : $h89 
58 00 B2 08 co 3 ect mut TR : 2790 
; a eee ar 
i Pe bog CALLS #1, NCPSADDF AO : 2796 
R ; 
00000000v 00 H bb 688 putitke P. AGW : 
0168 C9 9F 00680 CALLS #2, NCPSADDSTR : 2797 
$8 : £8 oth MOVZBL (R4), mit : 2798 
36 83 Bt ooee? (MPL -NDTY, 
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NCPSPARSEPARM Parse a Parameter 


ssi 


process Returns from SHOW and LIST 


NCPSPARSEPARM Parse a Parameter 
1 
0186 ; 
00000000G 8F 
00000000G 00 : 
48 A 
43 0 
000000006 4 
E 
00000000v 00 of 
01c9)—s sc 
10 
00 8 
00000000vV 00 of 
O1cD 3=6C9 
i 
6 
o00cc 
0c 3 
0088 
0D 50 
F8 
04 AE 56 
08 04 At 
1 
01D7 fy 
00000000G 8F 
00000000G 00 03 
0 6E 00 
08 AE 
51 04 AE 
08 33 
51 85 
50 01 
07 
08 AE4O 00 B840 
F5 22 51 
6 04 AE 
04 AE 
OC =UOCA 
00000000vV 00 ; 
52 H 
8 i ) 
6 
Co : 
+ 


base 
4-Se 


pa19be f2:48:16 


—~ 
”"_ 


SSSRSIA= 


SANNA NN 


~“ 
or>> 


OOronons 


99 $9 FIN "9 MOO TNO O99 -99 VT9O9 O90 9 | OW" OWI TOO TNO OVO TMOMOVO "OC O— 
OW" @ FP SOD BM "OWO- M0090 ©8999 MN Of] OO OOO -"VlTW0 OF rFOUUTUWVIIO ™N, 
OOOO SINAN SSN NS SSNS SSS 


SOOOCSSCOSOSOSCOSOOCOCOSOOOOCOOOSOSOOOSOOOOOOOSOOOOOOOOSOOOOOOOOOOOOOOO 


SOOOCCOCCOOSOOCOOCOCOOCOOOCOCOSCO COSC OSOCCOOC COCO OCOOOOOOCOOO OO OOO OOOOoOoOO 


errs 
~ 


119$ 
aes 


z 
#NCPS$_LOGIC 
#3, LIBSSTOP 
SP 

a9 ne) -(SP) 

a3, NCPSTABLESEARCH 
RO, 120$ 

NCPSADDFAO 


8) 
NCPSADDF AO 
E 
N 


CPSADDSTR 


#NCPS$_BADMSG 
#3, LIBSSTOP 
#0, (SP), #0, #8, PRVMSK 


a (RB) C1DX} PRVMSKLIDX] 
Ri, IDX, 127% 

CTR, (R8) 

CTR 


PRVMSK 
#2, NCPSPRIVBITS 
#1, IDX 


131$ 
#1, IDX, #0, -(SP) 
#6. (SP5+, RO, RO 
ie « 

1358 

R10 


de Oh fege3e Ve -O20h¢ 
NCP.SRCINCPSHOLIS.B32; 


'_ <2 
_ eo 


Se Se Se Se Ge Se Se Ge Se Se Ge Se Ge Ge Se Se Ge Ge Ge Ge Ge Fe Ge Se Fs Ge Se Se Be Ge Se Se Be Be Se Fe Fe Fe Se Se Ge Fe Ge Fe Ge Be Fe Be Ge Ge Ge Ge Ge Ge Ge Ge Se 


53 
NCPSHOLIS Process Returns from SHOW and LIST 15- 4 35 AxX-11 iss- 4.0-74 
Voc NCP PARSEPARM Parse a Parameter 14- 3e8- 1382 3 23; #8 NCP SRE Marie a ree to Page 193 


OEE C9 9F 00849 PUSHAB P.AHG : 
68 2 FB 0084 CALLS We NCPSADDSTR : 
A pp 130$: PUSHL R Q + 2942) 
01F6 8669 OOF USHAB PA : 
F CALLS #3. NCPSADDSTR : 
D NCL IDX : 
04 AE p B131$: CMPL 1Dx CTR : 
: F BLEGU 38 : 
1 é BRB 135$ + 2933 
A pp 132$: PUSHL R10 + 2948 
O1FB «C9 «(OF 0086 PUSHAB P.AHI ; 
8 02 FB 0 CALLS We NCPSADDSTR : 
FF 66 O9E OVAB <-1(R6), R : 2949 
52 D4 8 CLRL 19 : 
17 11 0087 BRB 4$ : 
5A pp 087 133$: PUSHL R10 : 2952 
O1FF C9 F 00876 PUSHAB F.AHJ : 
$8 : FB OB7A ALLS #e. NCPSADDSTR : 
E 00 8842 9A 00870 MOVZBL @0(R8)CIDX], -(SP) + 2953 
00000000v 00 01 FB 0882 CALLS #1, NCPSADDFAO : 
38 D6 088 INCL IDX : 
53 52 D1 0088B 134$: CMPL IDX, R3 : 
gs 1B 0088E BLEQU 133$ : 
A OD 90890 PUSHL R10 + 2956 
0203 ¢9 9F 00892 PUSHAB P.AHK : 
68 02 FB 00896 CALLS #2, NCPSADDSTR : 
68 56 CO 00899 ADDL2 LEN, (R8) + 2957 
57 56 CO 0089C 135$: ADDL LEN, R7 + 2963 
68 57 D1 0089F CMPL  R7, (RB) : 
13 13 OO8A2 BEQL © 134$ : 
0205 C9 SF OOBA4 PUSHAB »’.AHL : 2966 
01 DD 008A8 PUSHL #1 > 2965 
000000006 8F DD OOBAA PUSHL #NCP$_BADMSG : 
000000006 00 03 FB 00880 CALLS #3, LYBSSTOP 3 
04 008B7 136%: RET : 2970 


; Routine Size: 2232 bytes, Routine Base: $CODES + 0D05 


NCPS urns from SHOW and LIST b se ep-1984 23:53: AX-11 iss-32 V4.0-74 
vou NTS Parse Event Parameter i Hats 93:28:48 Nee eet ee sae Ye b5004 
3 44 1 ZSBTTL ‘NCPSPARSEVENTS Parse Event Pergneter” 

: 39 : ROUTINE NCPSPARSEVENTS (PTR) :NOVALUE = 

; : 974 1 S44 

: ¢ af? ! FUNCTIONAL DESCRIPTION: 

: 4 348 1 i Parses the bit mask for event types and creates the fao vet 

; 300 44 1: entries and appents entries to fao control string to do 

; 3008 979 1! proper conversions. This routine properly formats both LK. bits 
; 3009 980 1! and ranges. 

; 3010 981 1! 

; Bt) 388 ! FORMAL PARAMETERS: 

; O18 984 i ; PTR Address of a pointer to the event mask 

: 3015 286 1 IMPLICIT INPUTS: 

; 3016 987 1! 

re i 

: O19 990 { IMPLICIT OUTPUTS: 

F 03) 336 1! ADDSTR Macro called to add strings to fao control string 

; Os§ ee : ADDF AO Macro called to add items to fao list 

: 3094 995 1 | ROUTINE VALUE: 

; 36 44 ; COMPLETION CODES: 

i tise + — 

; 285 900 ; SIDE EFFECTS: 

: 3031 008 1 i NONE 

3 3038 $00 1! 

; 303 004 1 !-- 


Page 196 


<z 
ec 


a8 o88 o8s 8s 45 2 


a8 84 48 288 2094 188 88 184 44 04 54 44 20 24 08 04 44 58 4 48 08 84 44 44 48 84 48 46 40 40 40 48 28a 


has a Process Returns from SHOW and LIST 1 
NCPSPARSEVENTS Parse Event Parameter 1 

; 3035 5 BEGIN 

; BUILTIN 

: ; FFS, FFC 

: 3040 B10 i 

: $003 1 : 

; Beg 88 LOCAL 

> 3044 014 BITS, ' 

 3ce Se ett 

: be9 gi§ HIBIT, i 

: 3048 O18 SIZE i 

: 3069 $20 ’ 

: 3051 021 BITS = ( .(..PTR) <0, 8, O>) * 8; ! 

3 p26 0 ¢ BASE =. : 

3 bez Is ? .PTR = 

3 095 a6 If BITS EQL 0 

: 3057 0 § RETURN ' 

oe 

: 3060 030 SIZE = 32; ' 

; 3061 031 LOBIT = 0: i 

; O58 038 WHILE TRUE ! 

: 3065 035 ” BEGIN 

> 3066 036 WHILE .LOBIT LSS .BITS i 

> 3067 037 

: 3068 038 

3 $095 039 

‘By Bs 7 

3 Ove O4¢ IF .LOBIT GEQ .BITS ' 

: 3074 044 RETURN 

3076 bee ; 

: 3077 047 FFC (LOBIT, SIZE, .BASE, HIBIT); 

: 3078 3048 


5 
B-Sep-1984 25:55:26 — YAXct1 Ol is9-82 v4.0-742 


Find bit operations 
Remember that these are true if 
No bit is found 


How many bits 

Base address of bits 
Low bit number 

High bit number 

Size if field to search 


Number of bits 


-PTR + 1; 
PTR + .(..PTR) <0, 8, 0> + 1; ! Point beyond the bits 


Any bits 

No bits, then nothing 

Size of field to search 
Lowest bit to look for (POS) 
Forever look for bits 


Any bits set? 
While there are bits to look for 


FFS (LOBIT, SIZE, .BASE, LOBIT) ! Find first set until it is 


First in our mask? 
Nope 


! If no bit is tpynd. leet + size 


! is returned as high 


ms. 


NCPSHOLIS process Returns from SHOW and LIST sens 4 75 Ax-11 BLi V4.0-74 P 

042000 nC ARSEVENTS Parse Event Parameter =Sep =138% 3: 23: 78 NCP.SRCIN wauts ¢7 83504 age 198 
; 9 3 
: 081 036 ls GEQ .BITS ! Clamp the top of the range too : 
i 30 § 5 _ HIBIT = .BITS ; 
: 9 5 54 HIBIT = .HIBIT ! Adjust hibit : 
: 30 29 If ,oBlt EOL .nieit i A’range of bits found : 
; O88 089 4 BEGIN ! Not a range ; 
: 3089 058 4 ADDFAO (.LOBIT); i Stuff one bit : 
: 3090 059 4 ADDSTR (*!uB ') ; 
: 3991 bee $ END F 
: O38 082 4 BEGIN ' Stuff a range of bits : 
+ 3094 we 4 ADDFAO (.LOBIT); . |; 
: 3095 064 4 ADDFAO (.HIBIT): 3 
; 3096 065 4 ADDSTR (*!UB-!UB *) ; 
; 3097 066 4 END ; 
; 35098 06 3 3 
3; 3099 068 LOBIT = .HIBIT + 1 ! Continue searching from here : 
: 3100 069 END : 
: 3101 070 F 
: 3102 071 1 END; : 
.PSECT SPLITS,NOWRT ,NOEXE , 2 : 
20 42 55 21 04 OOCBA P.AHM: ASCII <4>\!UB \ : : 
20 42 55 21 2D 42 55 21 O08 OOCBF P.AHN: .ASCII <8>\iUB-!UB \ : : 
.PSECT SCODES,NOWRT,2 : 
O1FC 00000 NCPSPARSEVENTS: : 
<WORD Save R2, R3, R4,R5,R6,R7,RB : 2972 : 
58 00000000' 00 9€ 99002 MOVAB nepscacg ROSC. RB ; : 
57 00000000v 00 9E 000 MOVAB NCPSADBFAD, R? : : 
53 04 aC DO 00010 MOVL PTR, R : 3021 : 
50 63 D 14 MOVL (R35, RO : : 
51 60 9A 00017 MOVZBL (RO). R1 ; : 
re a es a ey pe) 
83 O1 ated 09 5 ROVAB  TERTDEROIs. (R3) ; 3095 ; 
33 . 0 TSTL BITS : 30 3 
0039 BEQL «6 : : 
56 ‘ Dd G002B MOVL #32, SIZE : 3030 : 
D4 CLRL LOBIT : 3031 : 
55 53 1 1$ CMPL Losi, BITS : 30 : 
of 18 BGEQ $ 3 3 

53 62 oY.) 33 FA 3 res OBIT, SIZE, (BASE), LOBIT ; 3038 

55 3 of C 2$ cHPL LOBIT, BITS : 3042 

54 62 56 5 EB 41 FFC LOBIT, SIZE, (BASE), HIBIT + 3047 

5 54 OO 46 CMPL =—CHIBIT, BITS : 3050 


6 
NCPSHOLIS Process Returns from SHOW and LIST 18-56 -1984 23:53: AX-11 Bliss-32 V4.0-74 P 9 
¥O4 2000 NCPSPARSEVENTS Parse Event Parameter 12-80-1882 93:28:98 NCP. SRCINCPSHOLIS.832; age 195 


3 19 00049 BLSS 3$ 
54 og 48 MOVL BITS, HIBIT : 3052 
4 D 4E 3S DECL 4HIBIT 54 
54 3 pi CMPL LOBIT, HIBIT : 3055 
F 12 BNEG 4 
3 DD PUSHL LOBIT 3058 
67 j FB 37 CALLS He NCPSADDF AO 
00000000' 0 oF 05¢ PUSHAB P.AHM 
12 11 0006 iT 4 
7 ee 
9? DD $588 PUSHL 3064 
67 01 FB 00068 CALLS #1, NCPSADDFAO 
8 pp 00 F PUSHL RB 3065 
00000000' 09 F 000 PUSHAB P.AHN 
00000000v 99 02 FB 90076 5$: CALLS #2, NCPSADDSTR 
01 Ad 9E 00070 MOVAB 1(R4), LOBIT 3068 
a 4: Po * Paes 3071 


PUSHL F : 
BRB ; : 
4$: PUSHL LOBIT : 3063 
CALLS #1, NCPSADDFAO : 
; Routine Size: 132 bytes, Routine Base: S$CODES + 1580 
| 


6 = -7% Page 110 
=Sep-1984 23:53: AX-11 Bliss-32 v4.0 (439 
Returns from SHOW and LIST 18-sep-1 48: NCP. SRCINCPSHOLIS.832; 

vOu=000 > NCPEPTBSEARCH Search a PTB for an Entry 14-Sep isk 8 és ‘6 t 
; TL. "NCPSPTBSEARCH Search a PTB for an Entry : 
: 3198 7 ROUTINE NCPSPTOSEARCH (TOL. ID, TYP. LST, TXT) © | 
; 31 , ; 
: ibe 78 i FUNCTIONAL DESCRIPTION: | 
; 5109 0? i k for an entry specified by : 
e giit $78 i wage BA ny ty code, address of a List entry, and : 
; Ne 080 1} address of the text for the parameter name. ; 
. ' ° 
ig ORs : i FORMAL PARAMETERS: ; 
: 3115 0 1; of the PTB to search : 
: | ee; etcerEaMTTS Hageeet 
; $118 eed | St Address to return the address of the associated List 3 
‘ YS Obs : i +H Address to return the address of the name : 
: $153 090 1 i IMPLICIT INPUTS: ; 
: $138 be 1 i NONE 
: 3158 09% | i IMPLICIT OUTPUTS: ; 
: 313? 036 1 i NONE ; 
; 3128 : ; 
; 3129 097 1 | : 
° : TINE VALUE: : 
3 099 | ; COMPLETION CODES: ; 
: 3136 ior fi Success or failure 
° 1 ,: : 
: alge 103 1 i SIDE EFFECTS: 
: 34 106 1! : 
: He 5 1; none 3 
. 1 : : 
: 107 1 !<- 
: 120 108 1 
> 3141 109 BEGIN 
148 3111 ! Fields for Parameter Text Blocks 
: 3144 113 PIELDTBFLDS = 
; 3145 - 
; 114 y = } is the NMA code 
: 3109 115 PTBSwW_ID = £9 8. 16.9). i hee is the PBK type code | 
: 38 Hf pisnehst EER Bs Tbe gd. rd cftset to'a tere Bcc 
3180 118 PTBSW_TXT = (5, 0, 16, 1 : Word offse | 
; 3151 119 TES | 
: 3188 131 : | 
; 3154 ; § Serie SIZE = 7 ! Size of the block 
3 3155 i ~ 
. 1 ee: . 
# ic ie, ‘RIS tBraRLBRS SO | 
; FIEL 
t $120 128 PLIST : REF BBLOCKVECTOR (1, PTBSC_SIZE) | 

| 


& 
NCPSHOLIS Process Returns from SHOW and LIST 18. -Sep- 75 AX-11 Bliss-32 V4.0-742 Pp 11 
¥Ou=000 NCPSP TBseA RCH Search a PTB for an Entry 14-Sep- 1982 #3: 2a: 8 NCP.SRCINCPSHOLIS.B32;1 ~~ 
: 3161 129 : ' : 
; 316 150 3 
3 188 i PLIST = .TBL; ' Set the table start : 
; 186 ; § INCRU IDX FROM 0 book at the table from : 
; ! The beginning : 
; 316 135 BEGIN 3 
; 13 ! § IF .PLIST C.IDX, PTBSW_ID] EQL 65535 ! ALL done : 
; 176 : : 3 RETURN FAILURE ' We didn't find it here | ; 
: 317 140 , : 
: 178 103 If id's match, return the type, List, and text | 3 
: 3175 128 F : : | ; 
: 317 144 : 
3 7 ay IF ,PLIST C.1DX, PTBSW_ID] EQL .1D <0, 16, 0> ; 
: 3179 147 4 BEGIN : 
; 3180 148 4 -TYP = .PLIST C.1DX, PTBSB_TYP); ! Return the type code : 
; 181 149 ‘ if Puig’ -IDX, PTBSW_LSTJ EQL'O ! If there is no List : 
; 183 151 4 LST = 0 } | pa return no List ; 
; 3184 136 4 ELSE ' Else, return real list addr : 
: 3185 133 6 JUST = .PLIST C.1DX, PTBSW_LST] + PLIST C.IDX, PTBSW_LST : 
: 3187 155 4 "TXT = .PLIST C.IDX, PTBSW_TXT] + PLIST C.IDX, PTBSW_TXT); : 
> 3188 156 4 RETURN SUCCESS ; 
: 3189 157 4 END ; 
; 3190 158 3 END 3 
: 3191 159 : 
: 3192 160 1 END: : 
001C 00000 NCPSPTBSEARCH: : 
.WORD Save R2,R3,R4 : 3073 
53 04 aC DO 00002 MOVL TBL, PLIST > 3131 
50 D4 000 CLRL IDX > 3145 
51 O7 CS 00008 1$: MULL3 #7, IDX, R1 : 3136 
51 3 ¢€0 0000C ADDL pList, R1 : 
FFFF 1 61 900 CMPW (R1), #65535 : 
3 12 00014 BNEQ 2$ : 
0 04 0016 CLRL = RO : 3138 
4 0001 RET : 
08 ac $1 B1 0019 2s: CMPW (R1), ID : 3145 
A 12 Bie BNEQ 5$ 3 
0c e¢ 02 Al 9A OOOTF MOVZBL g(a). atyP : 3148 
2 03 Al 9E 00024 MOV (R1), R2 > 3149 
62 65 0028 TSTW (R2) : 
O2A BNEQ 3$ 3 
10 BC 4 0002C CLRL aLsT : 3151 
1 000eF BRB 4 : 
54 2 32 00031 3$ CvTwW (R2), R4 ; 3153 
10 BC 54 C1 000 ADDL = R2, R4, LST : | 


= = Ss a _— co 


WO2000. NCPSPTBSEARCH Search @ PTB for an a 1$-se0-1944 43:28:98 ENC SetbnePsnOLY$:830041 Page (445 v6 


N 
; 05 : i 4$: MOVAB 5(R1), R2 : 3155 
CVTWL 6 (R2), RI : 
14 «BC 1 ADDL Re, R1, atxT : | 
0 60 MOVL #1, RO + 3156 
50 be boods 5$: INCL ‘IDX : eas! 
BB 11 00048 BRB 1$ : 


; Routine Size: 77 bytes, Routine Base: SCODE$S + 1641 


te 1S 


Be Se Se Se Ge Se BH Se Se Ge Ge Se Se Se Ge Se Se Ge Se Se Go Se Se Se Se Ge Se Se Se Ge Ss Se ee Se Se Se SeSeeee 


—_ 
UNIS BSRVOMNRUIVSSOWNAA RWWA OO RIERA ROOD IRR 


; Routine Size: 


6 
ss Returns from SHOW and LIST 15-56 -1984 23:53: AX-11 Bliss-32 V4.0-74 Pa 
AOSET Setup parameters for fao List 1a-8ep-19 4 93:23:98 NCP. SRCIJNCPSHOLIS.832; at 


ZSBTTL ‘NCPSFAOSET Setup poreneters for fao List’ 
GLOBAL ROUTINE NCPSFAOSET :NOVALUE = ! 


on 
"eo 
oO 


Coo VO 


'¢ 


144 
i FUNCTIONAL DESCRIPTION: 

; Setup control string buffer descriptor and fao List pointer. 
; FORMAL PARAMETERS: 

; NONE 

IMPLICIT INPUTS: 

; NONE 

IMPLICIT OUTPUTS: 

: NONE 

i ROUTINE VALUE: 

i COMPLETION CODES: 

; 

! 

! 

! 

1 

! 


E 


DOOOO0O0O0 0000000000909 09 0909 0909 INI NN INI NINN OOOO 


WAWWAWAAWAAAAAAAANA AANA AANA AAAI ZZ 


BS i ee ee a a ee a aed a 
PIF IP IPI III II at at st st st at st tk tk kk kk tk kt tt tt tt tt 


i SIDE EFFECTS: 
i NONE 
BEGIN 
FAOPTR = 0; ! Initialize pointer to fao list 
CTRDSC 9 = 0; ' Control string descriptor 
CTRDSC [1] = CTRBUF ; ' for FAO call later, set for ADDSTR 
CTRDSC C2) = CTRBUFSIZ; ' Set for size check 
RETURN 
END; 
0004 00000 -ENTRY WNCPSFAOSET, Save R2 : 3162 
52 444 8 9E ait MOVAB CTRDSC, R2 3 
0000000' D4 0000 CLRL FA > 3194 
3 4 Q000F CLRL CTRDSC ; 3195 
04 rn 00000000' E 00011 MOVAB CTRBUF, CTRDSC+4 ; 3196 
08 A O1F4 BF 3C 90019 MOVZWL #500, CTRDSC+8 : 3197 
4 OO01F RET : 3200 


32 bytes, Routine Base: S$CODE$ + 168E 


CONAVS WN —"O OONOUS WO 


wr 


WNIWNIWIUIPIRIPINININININININD 2 2 PO Ot Ot OO Oo 


MRIPMIPOPEPoPoPyNnofnoPonony: 
rorororonfory» 


R 
T 


ZSBTTL 
GLOBAL ROUTINE NCPSADDSTR (CSTR, DSC) :NOVALU 


ll Del Re Rh Re eT ee ee 


"NCPSADDSTR Add a String to a Descri 


'e4 
! FUNCTIONAL DESCRIPTION: 


This routine adds a counted string to the strin 
check is made against t 


a descriptor. 
n the third longword of the descriptor. 


of the string which 
FORMAL PARAMETERS: 


maximum Length 
Address of a counted string, ASCIC (‘txt') 
Address of a string descriptor and following longword 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE, error signaled if string does not fit 
SIDE EFFECTS: 


‘ 
18.58 -1984 23:53:26 AX-11 Bliss-32 V4.0-74 2 15 | 
12-808=138e 93:23 96 Nop SREINCESHOL YS o3507 aoe 13 


; Routine Size: 


+e 1s process Returns from SHOW and LIST 
NCPSADDSTR Add a String to a Descriptor 

; 3270 . 3 : 
; re § BEGIN | : 
: 327 P : 
: 3276 § SC : REF TOR ' : 
! 75 46 : C EF VECTO Descriptor of string 
3 7 4g IF (.(. CSTR) <0, 8, O> + .0SC (OJ) ! Will string fit? i 
: 8 4a DSC (2) : 
3 45 THEN 3 
‘ ré] : SIGNAL STOP (NCPS_BADMSG, 1, ASCIC ("too many parameters’) ) : 
: 328 4 . ; 
; Se 3 CHSROVE ! Copy the string : 
; 51 .(.CSTR) <0, 8, 0>, : 
: e 3¢ “DSC cia’ DSC hs 
PY ° o » Ps 
: 3590 2¢ ty 
; 3 2$ DSC CO] = .DSC [CO] + .(.CSTR) <0, 8, 0>; ! Update descriptor : 
; $98 258 RETURN : 
: 39% $99 : 
; 3295 60 1 END; : 
.PSECT SPLITS, NOWRT ,NOEXE ,2 
6D 61 72 61 70 20 79 6E 61 6D $ 6F 6F 74 13 OOCCB8 P.AHO: .ASCII <19>\too many parameters\ 3 : 
72 65 74 65 00CD7 : 3 
PSECT SCODES,NOWRT,2 ; 
orc 90000 ENTRY NCPSADDSTR, Save R2,R3,R4,R5,R6,R7 : 3202 : 
57 0 AC DO 00002 VL CSTR ‘p R7 : 324 : 
56 8 AC pO 90006 MOVL tnis." : : 
50 67 9A OO00A mOVZBL (R75, RO : : 
50 6 CO 0000D ADDL (R6), RO : : 
08 A6 D} 9910 CMPL RO, 8(R6) > 3244 : 
1 14 LEQ ; : 
00000000' 00 9F 00016 PUSHAB P.AHO : 3246 : 
1 DD 0001C PUSHL @# ; : 
000000006 8F DD IF PUSHL aNCPS BADMSG ; : 
000000006 99 ; FB CALLS LIBS$ST : : 
1 67 9A B 1S: MOVZBL 135) , RI : ; 51 : 
50 06 =A 6 C1 ADDL (R6). 4(n6) ; 3253 : 
60 01 OA 1 i MOVC3 R1, {(R7), (R Ros ; ; 
50 7 OA mOVZBL (R?) : 3256 : 
be 0 £0 90 B ADDL2 RO, iat : : 
4 0003 RET : 3260 ; 


63 bytes, 


Routine Base: 


SCODES + 16AE 


VO=000 =—sNCPEADSTR' Add a String to's Descriptor HESSOcH99E GH:SEGE Wats TUABAMessH3. $0504 Page (65 


are 1S Process Returns from SHOW and LIST 15-Sep-1984 $3: tf #6 AX-11 Bliss-32 V4.0-742 
NCPSADDFAO Add an Entry to the FAO List 14-Sep-1984 6 NCP. SRCINCPSHOLIS.832;1 

; 61 1 ZSBTTL ‘NCPSADDFAO Add an Entry to the FAO sins 3 

3 ? ! GLOBAL ROUTINE NCPSADDFAO (ITEM) :NOVALUE = 

; 64 1 f+ 

; 5 : : FUNCTIONAL DESCRIPTION: 

; 67 1! Add a longword entry to the fao list we are building. 

: : If the List overflows, signal an error for too many parameters. 

: 19 i FORMAL PARAMETERS: 

3 ie ! ITEM Value of the List entry 

: 3310 74 1°! IMPLICIT INPUTS: 

3; 3311 75 1! 

: \¢ 6 ; } FAOPTR Index into the FAOLST 

: 3314 78 1) IMPLICIT OUTPUTS: 

3; 3315 79 1! 

3 1 80 1! FAOPTR Incremented 

3 1 81 1! 

$ 18 Ht 1 ! ROUTINE VALUE: 

H 19 83 1 ! COMPLETION CODES: 

; so 8 1! 

3 1 85 1! NONE 

3 § HF] 1! 

3 87 1! SIDE EFFECTS: 

3 4 88 1! 

3 5 89 1! NONE 

; 6 90 1! 

3 7 91 1 !<= 

3 8 35 } 

: 380 334 5 BEGIN 

; 331 95 If _FAOPTR GEQ FAOLSTSIZ ! Check the size of the List 

; 338 $35 SIGNAL _STOP race? BADMSG, 1, : Too large, bump us off 

3; 33 98 ASCIC ('foo many parameters’) 

3; 3335 4 4 : 

; 3 301 FAOLST C.FAOPTR] = ITEM; ! Add the item to the list . 

3; 3338 30 FAOPTR = .FAOPTR + 1; ! Bump the index into the List 

3 39 30 RETURN 

5 0 soe 

; 1 05 END; 


~PSECT SPLITS,NOWRT ,NOEXE,2 


6D 61 72 61 70 20 79 6E 61 6D 39 6F 6F 74 13 QOCDC P.AHP: .ASCII <19>\too many parameters\ 


72 65 74 65 OOCEB 


-PSECT SCODES,NOWRT,2 


VOc=000 ss NCPEADDFAG “Aad an°Entry tothe FAO List HE$S0c1984 GHSEESTE WMG RNB Y4- 0504 


00 eENTRY WNCPSADDFAO, Save R2 ; 3262 
32 00000000° 9 : MOVAB FAOPTR, Re : 
00000064 &F p| CPL FAOPTR, #100 : 3295 
00000000" 00 9F 0001 PUSHAB P.AHP : 3298 
1 DD 0001 PUSHL #i : 3297 
000000006 8F ODD OOOIA PUSHL #NCP$_BADMSG : 
000000006 3 FB 000 9 CALLS a, LTB$STOP 3 
62 00 900 1$ MOVL RO : 3361 
04 A240 04 AC D0 0002A MOVL ITEM FAOLSTCROI : 
62 D6 000 INCL FAOPTR t 3302 
04 00032 RET : 3305 


; Routine Size: 51 bytes, Routine Base: SCODE$S + 16ED 


vo 
"ae 


pu 
_ 


6 
Returns from SHOW and LIST 18-5 “1984 23:53: AX-11 Bliss-32 V4.0-74 P 19 
RITE Convert and orite Fao Parameters 14-Sep-19 4 93:23:46 ENCP.SRE NCPSHOLIS..B32; age 13) 


ZSBTTL ‘NCPSFAOWRITE Convert and Write Fao Parameters’ 
GLOBAL ROUTINE NCPSFAOWRITE :NOVALUE = ! 


NCPSHOLIS Pr 
vO4 Ne 


lee 

! FUNCTIONAL DESCRIPTION: 
This routine calls SFAOL to convert the parameters in the 
Fao gentrot str ng and fao List and then calls the write 
routine to write the string to the output device for 
show and List. 

FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 


CTRDSC 
FAOLST 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


A) se ne st 


WN O ODONAMNES WN “OOONOUE Ww 
MEUM SO COON UE WN (OOO NOU FW 


o 


Jase SSSSES 


SIP IM MINIM IMIPININ IN a a at nt rt kk kk kk kk kk kk td tt tt tt 


a NONE 
7 FFECTS: 
ae SIDE EFFECTS 
74 NONE 
75 8 
7 39 
7 0 
78 1 
340 g 
382 sce OUTDSC (1) = OUTBUF; 
: § NCPSFAOL (OUTDSC); ' Convert the fao lists 
5 rt} NCPSWRITESHO (OUTDSC); ! Write the output 
50 RETURN 
$0) 
389 52 END; 
0004 00 ENTRY ecrer noun TE. Save R2 3; 3307 
5 seats 99 90 E V TOSC, R 3 
é 14 «BF 3 MOVZWL #500, OUTDSC > 3343 
06 =A 08 ag E f MOVAB GYTBUF . OUTDSC+4 : 3544 
52 dD 0001 PUSHL R : 3346 


BEGIN 

OUTDSC (CO) = OUTBUFSIZ; ! Set the output buffer descriptor 
| 
J 


00000000vV 00 F 15 ALLS #1, NCPSFAOL 3 
D 1 U Ht R ; 3348 
000000006 00 F If CALL #1, NCPSWRITESHO 3 
0 RE 3; 3352 
; Routine Size: 38 bytes, Routine Base: S$CODE$ + 1720 


MGUSRRSTS —_REREPREAATTET™E fram, SHOM PFLIFT, acaeeters 12: co-1 8h 3:28:48 ENGEL SRCINEBSHOLYS“B3054 
| 
| 


NCPSHOLIS Process Returns from SHOW and LIST 
vO NCPSFAOL Convert fao (fet 


N 
V 


“3905 73:53: é 2 v.0- | 
pal9ee {2:08:16 — ENCP-SREINEPSHOLIS 03271 Paae 35) 


91 ZSBTTL ‘NCPSFAOL Convert 


fao 
GLOBAL ROUTINE NCPSFAOL (OUTDSC 


on 


List’ 
) :NOVALUE = : 


14 
! FUNCTIONAL DESCRIPTION: 


Convert the fao List we have been building. Return the string in 
a string whose descriptor is passed. 


FORMAL PARAMETERS: 


OUTDSC Address of descriptor of buffer for text. 
Descriptor is modified to contain the new length. 


ao 


APUV ISOS APIO Ooo ONO eo Oto a 


IMPLICIT INPUTS: 


0000 00000 -ENTRY WNCPSFAOL, Save nothing ; 3354 


3 1 3 
; 339 1 3 
$ 3 1 3 
; 3394 1 3 
: 3395 : : 
3399 1 i 
3 4 1! | 3 
3 ,; 3 
; 3400 1! 3 
$ 3 : : 
3 08 1i ; 
3; 3404 1! 3 
; 3405 1! 3 
; 3406 1% 3 
; 3407 1! CTRDSC Descriptor of control string : 
3 o8 ! : FAOLST Fao parameter List : 
: 3410 372 1! IMPLICIT OUTPUTS: ; 
3; 3411 wa Se 3 
: \¢ 74 «15! NONE 3 
3 1 75 1! $ 
; 14 He 1 ! ROUTINE VALUE: : 
: 15 77 1 ! COMPLETION CODES: $ 
: LY 78 1! F 
: 1 79 «15! NONE é 
; 3418 80 1! 3 
; 19 4 1 ! SIDE EFFECTS: : 
3 0 ; . § 3 
3: 3421 ; NONE : 
. be : 
> 3425 Ha BEGIN : 
: 3259 3s 
: 3428 90 QUTDSC : REF VECTOR (2) ! Local description of descriptor : 
F 3 ‘ ; 
Hy 1 : a? Sr Aay, | : 
; 3 P 3395 CTRSTR = CTROSC, ! Module wide control string : 
; P 36 OUTLEN = OUTDSC (0), ! Descriptor parameter 3 
3 3435 Pp 339 OUTBUF = .OUTDSC, ; 
; 34 P 4 PRMLST = FAOLST ! Module wide parameter List : 
: 3438 400 : | : 
$ 39 n't RETURN 
3; 3440 4 § | 
: 41 0 END; | 

| 


SSIS Separ, barnst"WaaSttg oe st be 


000000 " 00 OF 
AC 0D 
4 At pp 
00000000" 0 F OE 
000000006 00 04 4 


; Routine Size: 28 bytes, Routine Base: SCODE$S + 1746 


1982 3:28:48 


AX-11 
NCP.SR 


S$F AOL 


CnePsHOL $8371 


Page 55 


; 3399 


: 3403 


<z 


Bete Se Se Ge Ge See Ge Se Se Ge 


DAMA & 
DWONAULSWN—OO@ 


cs 


FAVS 


tk ek et ee ee ee ete et ek el tal ad ee ea 


IAWIROROPOROPOfonononony 2 2 2 OO 


: 
5 
2 
7? 
: 
, 


Fah ek eh eh et et et ek et et et et et et 


FUWNWAWWw 


| 


7 
urns from SHOW and LIST 1$-sep-19 4 $3: 23:06 ne Bliss-32 Ve -Oacee 
S Convert Privilege Mask to Text En 14-Sep-1984 12:48: NCP.SRCINCPSHOLIS.B32; 
TTL. ‘NCPSPRIVBITS Convert Privilege Mask to Text Entries’ 
TINE NCPSPRIVBITS (MASK, RLEN) :NOVALUE = ! 
+ 


et 
IT 
$B 
OU 
'+ 
FUNCTIONAL DESCRIPTION: 

Convert a priv tiege mask to a of bit names entries in the fao List. 


Store the list in the fao List and return its Length. 
FORMAL PARAMETERS: 
MASK Address of privilege mask 
RLEN Address to return length of the fao List 
IMPLICIT INPUTS: 
PRVSAB_NAMES Table of bit names and values 
Format : BYTE minimum name size 


BYTE bit value 
ASCIC bit name 


BYTE 0 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


——_.——— 


7 
NCPSHOLIS Process Returns from SHOW and LIST 18-5 e 4 23:5 AX-11 Bliss-32 V4.0-74 Page 124 
042008 NCPSPRIVBITS Convert Privilege Mask to Text En 14- “e 1384 93: 28: 78 NCP. SRCINCPSHOLIS.832; ° (41) 
3 1 44) 1 3 
: 3486 44 BEGIN ; 
; 34 44 é 
: 444 LOCAL | : 
; 3485 445 NBIT, ' Number of the current bit . 
3 173 PTR, ' Pointer to bit ; 
; 348 44 ' Counter for List 3 
; 58 re | ; ' : 
5 9 44 3 
5 +20 oo 3 
s 4 r 1 PRVSAB_NAMES; ! Magic table of privilege names : 
; 349 re CTR = 0; ' No entries 3 
: 9% 434 PTR = PRVSAB_NAMES; i Scan the ta fe, bit by bit ; 
: 38 te WHILE .(.PTR) <0, 8, 0> NEQ 0 ! While the table is not done 3 
; 349 45 dO 3 
; 3498 +28 BEGI : 
> 3499 45 PTR = .PTR + 1; ! Skip the minimum string size : 
; 3500 460 NBIT = .(. are <0, 8, 0>; ' Bit number 3 
; 53501 461 PTR = .PTR : ! => ascic name of bit 3 
3 206 46 IF .¢ MASK) < <.NBIT, 1, 0> ' Look at the bit in the mask 3 
; 350 46 THEN : 
3; 3504 464 4 EGIN ! If so, add the name F 
; 3505 465 4 ADDFAO (.PTR); ! Add the entry to the fao List 3 
; 306 466 4 CTR = .CTR + } i Count the entry : 
; 350 467 4 END é 
; 3508 468 : F 
; 3509 469 : 
; 3510 470 PTR = .PTR + .(.PTR) <0, 8, 0> + 1 ! Skip the string 3 
3; 3511 471 END ‘ 
3 21¢ 47 ; 3 
; 351 47 3 
3: 3514 474 -RLEN = .CTR; ! Return the Length of the data : 
3; 3515 eo3 § RETURN : 
; 3516 476 3 
3; 3517 3477 1 END; : 
-EXTRN PRVSAB_NAMES : 
001C 00000 NCPSPRIVBITS: 3 
«WORD Save R2,R3,R4 : $793 
53 D4 90008 CLRL CTR 3; 345 
52 00000000G 00 9E 00004 MOVAB FRYSAG_NANES., PTR 3 s0ee 
62 95 00008 1$: TSTB (PTR) : 3456 
1D 1 000D BEQL 3$ : 
35 D6 OO00F INCL PTR : 3459 
54 9a 00011 MOVZBL (PTR)+ ne : 3460 
09 04 BC 4 €1 O014 aer NBIT, @MASK, : 346 
2 OD 19 PUS!!L = PTR ; 346 
FF6B CF 4 FB 0001 CALLS #1, NCPSADDFAO g 
6 INCL CTR > 3466 
28 6 A 2$ MOVZBL (PTR), RO : 3470 
01 A04 F 0 MOVAB 1(RO)CPTRI, PTR : 
DF 11 OOO2A BRB 1$ 3 


7 
VO-000, =—sNCPEPRIVBITS Convert Privilege Mask to Text En 1eSep-1888 3:28:48 NCP .SaciNeBsHoLY$:030+1 Page 135 


: $328 3278 0 ELDON sate opeme 


-EXTRN LIBSSTOP 
PSECT SUMMARY 


; Name Bytes Attributes 

: $PLITS 3312 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; 1424 NOVEC, WRT. RD + NOEXE, NOSHR, LCL. REL. CON.NOPIC.ALIGN(O) 
: $GLOBALS é NOVEC, WRT, RD .NOEXE.NOSHR, LCL. REL. CON,NOPIC.ALIGN() 
: $SCODES 6035 NOVEC.NOWRT, RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(O) 
; Library Statistics 

; weaaeee SRG ls scaneene Pages Processing 

$ File Total Loaded Percent Mapped Time 

: _$255$DUA28: SYSLIBISTARLET.L32j 1 9776 3 Q 581 00: 01.0 

> 7$255$DUA28: OBJ JNMALIBRY. “L321 887 111 1 47 00:00.7 

; ~$528SpuA 8: NEP: OBI INCPLIBRY: L32;1 3 35 9 52 00:00.3 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:NCPSHOLIS/OBJ=OBJ$:NCPSHOLIS MSRC$:NCPSHOLIS/UPDATE=(ENHS:NCPSHOLIS) 


; Size: 6035 coge + 4748 data bytes 
: ime: 8 239.6 


3; Elapsed Time: Oreo. 
3 Lines/CPU Min: $036 

3 Nagy Ak ter 13799 
; ery Used: 621 pages 
3; Compilation Complete 
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